sub chg {
   my ($str, $pat) = @_;
   eval "\$str =~ tr/a$1/$1a/" if $str =~ /$pat/;
   return $str;
}