Select Code to Download

#!/usr/bin/env perl -l

...
    next if substr($_, -1, 1) eq ' ' or rindex($_, ' ', length() - 2) 
+== -1;
    print;
}

#!/usr/bin/env perl -l

...
        next if @parts > 1;
    }
}

                         Rate split_and_re_check re_check_and_split no
+_re_check_and_split
split_and_re_check    50243/s                 --               -18%   
+               -29%
...
re_check_and_split    66369/s                25%                 --   
+                -8%
no_re_check_and_split 72404/s                36%                 9%   
+                 --
ken@ganymede: ~/tmp