Select Code to Download

use Benchmark "cmpthese";
use Regexp::Common "whitespace";
...
    "m-capture"     => sub { my $g = $f; ($g) = ($g =~ m/(\S+(?:\s+\S+
+)*)/); },
    "unpack"        => sub { my $g = $f; $g = reverse unpack "A*", rev
+erse unpack "A*", $g; },
    });

5.15.5:

...
m-capture   664093/s      100%       78%        44%        --     -56%
+      -58%
two-s///   1503714/s      353%      304%       225%      126%       --
+       -5%
unpack     1574832/s      374%      323%       241%      137%       5%
+        --