Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"for my $word (qw(XYZ$-.%abc&/  $-.%abc&/XYZ  $-.%abc&/XYZ+=*)) {
...
'XYZ$-.%abc&/' -> '[$-.%][a][b][c][&/]'
'$-.%abc&/XYZ' -> '[$-.%][a][b][c][&/]'
'$-.%abc&/XYZ+=*' -> '[&/][X][Y][Z][+=*]'