use strict; use Benchmark; my $str=q(this is some text
$1@g; } sub method2 { my $s=shift; $s=~s@
$1@g; } sub method3 { my $s=shift; $s=~s@
$1@g; } timethese(100000, {'1' => sub { method1($str) }, '2' => sub { method2($str) }, '3' => sub { method3($str) }});