#!/usr/local/bin/perl5.8.0 or #!/usr/local/bin/perl5.6.1

use Benchmark; 
$main::x=join("",(a..z))x100;
 
&timethis(100,\&test);
 
sub test {
   $main::x =~ s/(.*?)I/$1/isge;
   }