Select Code to Download

#!/usr/bin/env perl

...
my $trans = $str;
$trans =~ y/a-zA-Z0-9"' .?!-//cd;
printf $fmt, 'TRANS', $trans;

          OP : aZ5-"' .?!
NO_DUP_QUOTE : aZ5-"' .?!
    LESS_ESC : aZ5-"' .?!
      NO_ESC : aZ5-"' .?!
       TRANS : aZ5-"' .?!