mangle.pl

use v6;

# see http://catb.org/jargon/html/A/ASCII.html
# excludes _:. as these are allowed in HTML IDs

my %table = map &uc, qw{{
    ! bang
    " dquote
    # sharp
    $ dollar
    % percent
    & amper
    ' quote
    ( paren
    ) thesis
    * star
    + plus
    , comma
    - dash
    / slash
    ; semi
    < bra
    > ket
    = equals
    ? query
    @ at
    [ square
    ] unsquare
    \ bslash
    ^ hat
    ` bquote
    { brace
    } unbrace
    | bar
    ~ tilde
}};

%table{' '} = '';

# FIXME: eval is evil
my $re = eval "/<[$_]> || <-[$_]>+/" given %table.keys.map('\\' ~ *).join;

# use trans?
sub mangle($_) { .comb($re).map({ %table{$_} // $_ }).join('-') }

say mangle $_ for @*ARGS;