Select Code to Download

Implementations check OK.
             Rate   csebe  moritz resubst bitwise
...
moritz   377674/s    364%      --    -45%    -63%
resubst  686400/s    743%     82%      --    -33%
bitwise 1030128/s   1165%    173%     50%      --

use Benchmark 'cmpthese';

...
  moritz  => sub { my $rv = \&merge_moritz  ($main::str1,$main::str2) 
+},
  csebe   => sub { my $rv = \&merge_csebe   ($main::str1,$main::str2) 
+},
} );

# String length is 3515KB.
ok 1 - Bitwise
...
moritz   4.11/s    995%      --    -46%    -94%
resubst  7.63/s   1931%     86%      --    -89%
bitwise  69.1/s  18302%   1581%    806%      --

use Benchmark 'cmpthese';
use Test::More;
...
  moritz  => sub { my $rv = \&merge_moritz  ($main::str1,$main::str2) 
+},
  csebe   => sub { my $rv = \&merge_csebe   ($main::str1,$main::str2) 
+},
} );