$ perl bench_split.pl
           s/iter      regex      index      split filehandle
regex        3.44         --        -9%       -36%       -48%
index        3.13        10%         --       -29%       -43%
split        2.21        56%        42%         --       -19%
filehandle   1.78        93%        76%        24%         --