#!/usr/bin/perl
use Time::HiRes qw(gettimeofday tv_interval);
my $t = [gettimeofday];
for( 0 .. 1000000 )
{
$str = "Im a TEST: 1, 2, 5;";
$str =~ s/\W+//g; 
}

print "Content-type: text/html\n\n";
print "Time passed: ", tv_interval($t);

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";