Select Code to Download

use Benchmark qw/:all :hireswallclock/;

my $DATA = '01 fines name 2222 -P sws -1 reee.tee rrt';
...
        join '-1', $left, $right;
    },
});

              Rate pushtaev      rjt
pushtaev 1875006/s       --     -75%
rjt      7582716/s     304%       --