#!/usr/bin/perl

use strict;
use warnings;

use Benchmark 'cmpthese';

our $item = '"path/path1==new';

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

__END__
            Rate method2 method1
method2 334042/s      --    -38%
method1 535924/s     60%      --