Select Code to Download

use strict;
use Benchmark;
...
    'lookahead' => sub { ($index) = $str =~ m/^(.+?)(?=\|)/ },
    'splitter'  => sub { ($index) = split /\|/, $str },
});