1 2 3
my $var = '678 ?he quick brown fox jumps over the lazy dog 599'; $var =~ tr/[A-Za-z,.]/[\000-\077]/; print $var ,"\n";
1 2 3 4 5 6
678 ?! *."$ +(0' (1 #.&), (/+ -! %32 ( 599