Select Code to Download

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