Select Code to Download

sub zipD($$) {
    my( $a, $b ) =  (my $o = length( $_[0] ) >= length( $_[1] ) ) ? @_
+[ 0, 1 ] : @_[ 1, 0 ];
    substr( $a, $_*2+$o, 0, substr( $b, $_, 1 ) ) for 0 .. length( $b 
+) -1;
    return $a;
}

C:\test>1133857.pl
AaBbCcDdEeFGHIJaAbBcCdDeEFGHIJ
...
rR  86543/s   1%   -- -39% -40%
Dd 142186/s  67%  64%   --  -2%
dD 145076/s  70%  68%   2%   --