c:\@Work\Perl\monks>perl -wMstrict -le
"my $word = '$-.%aBc&/d-E';
 ;;
 (my $new_word = $word) =~ s{ ([^[:alpha:]]+ | [[:alpha:]]) }{[$1]}xmsg;
 ;;
 print qq{'$word' -> '$new_word'};
"
'$-.%aBc&/d-E' -> '[$-.%][a][B][c][&/][d][-][E]'