#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw /cmpthese/;

our @files = qw {
    /etc/passwd
    one/two/three/four/five/six.a
    file
    a/very/deep/file/indeed/deeper/than/you/may/think/really
};


cmpthese -5 => {
    abigail => 'foreach my $f (@files) {
                    my $fn = (split m{/} => $f) [-1]
                }',
    markm   => 'foreach my $f (@files) {
                    my ($fn) = $f =~ /([^\/]+)\z/
                }',
};
__END__
Benchmark: running abigail, markm for at least 5 CPU seconds...
   abigail:  5 wallclock secs ( 5.19 usr +  0.00 sys =  5.19 CPU) @ 68404.24/s (n=355018)
     markm:  6 wallclock secs ( 5.23 usr +  0.00 sys =  5.23 CPU) @ 34427.53/s (n=180056)
           Rate   markm abigail
markm   34428/s      --    -50%
abigail 68404/s     99%      --