#!/usr/bin/perl

use Benchmark qw/cmpthese/;

my $n = shift || -5;

$str = <<HERE;
abc 10
abc 11
abc 12
abc 13
abc 14
HERE

cmpthese($n, {
   jeanluca     => sub { my $dum  = ($str =~/abc\s(\d+)/gs)[-1] ; },
   inman        => sub { () = $str =~ /abc\s(\d+)/g; my $dum = $1; },
   salva        => sub { (my $dum) = $str =~ /^.*abc\s(\d+)/s; },
   prasadbabu   => sub { (my $dum) = $str =~ /abc\s(\d+)$/; },
   blazar1      => sub { (my $dum) = reverse $str =~ /abc\s(\d+)/gs; },
   blazar2      => sub { my $dum = $1 while $str =~ /abc\s(\d+)/gs; },
   drmoron      => sub { (my $dum) = $str =~ /\d+$/gs; },
   thedoe1      => sub { (my $dum) = $str =~ /(?<!abc).*abc\s(\d+)/gs; },
   thedoe2      => sub { (my $dum) = $str =~ /abc(?!.*abc)\s(\d+)/s; },
});