my $start = (times)[0];
for( 0 .. 1000000 )
{
$str = "Im a TEST: 1, 2, 5;";
$str =~ s/\W+//g; 
}
my $result = (times)[0]-$start;
print "Content-type: text/html\n\n";
print "Time passed: $result";