Select Code to Download

sub compare {
    state $stripped;
...
    eq
    ($stripped->{$_[1]} //= $_[1] =~ s/<(?:i|ph|bpt|ept) [^>]*?>//gr);
}

!/usr/bin/env perl

...
    eq
    ($stripped->{$_[1]} //= $_[1] =~ s/<(?:i|ph|bpt|ept) [^>]*?>//gr);
}

$ ./pm_1217567_cmp_bench.pl bench
        Rate orig kens
orig  2035/s   -- -81%
kens 10576/s 420%   --

$ ./pm_1217567_cmp_bench.pl > ./pm_1217567_cmp_bench_both.out
$ cp ./pm_1217567_cmp_bench_both.out ./pm_1217567_cmp_bench_orig.out
...
---
> *** Ken's ***
$