Select Code to Download

C:\test>786728-1.pl
          Rate three   one   two
three  95432/s    --  -13%  -35%
one   110191/s   15%    --  -25%
two   146082/s   53%   33%    --

C:\test>786728-2.pl
           Rate   one   two three
one   6935150/s    --   -0%   -6%
two   6965018/s    0%    --   -5%
three 7345874/s    6%    5%    --

use strict;
use warnings;
...
    'two'   => q[ my @filtered = grep { /exception/ && !/tex/ } @unfil
+tered; ],
    'three' => q[ my @filtered = grep { /exception:/g && !/\Gtex/ } @u
+nfiltered; ],
});