use Benchmark;
                                                                                
my $text = <<'END_TEXT';
    this
  isa
 test    of test text
        that I am
  testing
END_TEXT
                                                                                
my $start = new Benchmark;
                                                                                
for (1 .. 1000000) {
    while ($text =~ /(test)/g) {
        my $foo = $1;
    }
}
my $end = new Benchmark;
my $diff = timediff($end, $start);
print "While not using \$` the code took: ",timestr($diff),"\n";
exit;
my $foo = $`;