pl@nereida:~/src/perl/perltesting$ cat ./timeregexpwithp.pl #!/usr/local/lib/perl/5.10.1/bin//perl5.10.1 -w use strict; use Benchmark qw{:all}; cmpthese( 1000000, { p => q{'hola juan' =~ /ju/p; my ($a, $b, $c) = (${^PREMATCH}, ${^MATCH}, ${^POSTMATCH} ) }, oldway => q{'hola juan' =~ /ju/; my ($a, $b, $c) = ($`, $&, $') } } ); cmpthese( 10000000, { pnoassign => q{'hola juan' =~ /ju/p; }, oldwaynoassign => q{'hola juan' =~ /ju/; } } );