Select Code to Download

use strict;
use Time::HiRes 'time';
...

my $begin = time;
print $str =~ $re, ' ', time-$begin, "\n";