$b = reverse $b; $a =~ s{.\K}{chop $b}sge; print $a;