use strict;
use Benchmark;
my ($i, $m);
my $t0 = new Benchmark;
$_ = "123:45678";
my $n = 5000000;

# snippet goes here.

my $t1 = new Benchmark;
my $td = timediff($t1, $t0);
print "x: ",timestr($td),"\n";