Select Code to Download

$> BENCHMARK=5 perl subline.pl
                Rate         op   tybalt89      daxim    rlindex cur_s
+trlen
op          536066/s         --        -0%       -22%       -66%      
+ -86%
...
daxim       688615/s        28%        28%         --       -57%      
+ -82%
rlindex    1585059/s       196%       194%       130%         --      
+ -58%
cur_strlen 3749674/s       599%       596%       445%       137%      
+   --

use Benchmark qw/cmpthese/;
use Test::More;
...
    }
    my $length_of_line = $newlines[$itr + 1] - $newlines[$itr];
}