use strict;
use warnings;
use Benchmark qw(cmpthese);

cmpthese(-1,
{method1=>sub {my $item = 'path/path1==new';my ($epath, $relt) =  split /==/, $item;},method2=>sub {my $item = 'path/path1==new';my ($epath, $relt) =  $item =~ /([^=]*)==(.*)/;}
}
);

            Rate method2 method1
method2 200037/s      --    -37%
method1 315836/s     58%      --