Help for this page

Select Code to Download

Select or download this

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