Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"my $word = '$-.%aBc&/d-E';
...
 print qq{'$word' -> '$new_word'};
"
'$-.%aBc&/d-E' -> '[$-.%][a][B][c][&/][d][-][E]'