perl -e 'use strict; use warnings; my $a="ABCDE"; my $b="xyz"; my $result=""; my $i; for ($i=0; $i<length($b); $i++) { $result .= substr($a, $i, 1) . substr($b, $i, 1) }; $result .= substr($a, $i); print "$result\n";'