in reply to The Regex Approach: Merging 2 strings like a zip
in thread Merge 2 strings like a zip

You'll need a // operator there, otherwise it eats the 0's in $b...

An alternative: 

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

[download]

In Section Seekers of Perl Wisdom