Select Code to Download

#!C:/perl/bin -w
use strict;
...
   }
print "The non-greedy match used ",Win32::GetTickCount() - $ms2, " tic
+ks on a w2k box.\n";
}

# regextiming2.pl

...
$end2 = time(); 
print "The second match used ",$end2 - $start2, " as measured by Time:
+:HiRes on a w2k box\n\n";
}