Select Code to Download

Benchmark:
timing 10 iterations of
...
2000, 2000, 2000

c:\test>

#! perl -slw
use strict;
...
print 'splits differ' if "@splits" ne "@regexs" and "@regexs" eq "@sca
+ns";
print 'regexs differ' if "@splits" ne "@regexs" and "@splits" eq "@sca
+ns";
print 'scans  differ' if "@scans"  ne "@regexs" and "@splits" eq "@reg
+exs";