my $trans2 = '\\' . $str . '\\';
print "$trans2\n";
$trans2 =~ y/a-zA-Z0-9"' .?!\-//cd;
printf $fmt, 'TRANS2', $trans2;

##</code><code>##

\*a%Z(5)-["'] <.?!>\
      TRANS2 : aZ5-"' .?!