Select Code to Download

#!/usr/bin/perl -w
use Benchmark;
...
  }
  return $matchlen;
}

Benchmark: timing 10 iterations of matchamp, matchpar...
  matchamp: 24 wallclock secs (23.48 usr +  0.00 sys = 23.48 CPU) @  0
+.43/s (n=10)
  matchpar: 26 wallclock secs (25.70 usr +  0.00 sys = 25.70 CPU) @  0
+.39/s (n=10)

Benchmark: timing 10 iterations of matchpar...
  matchpar:  1 wallclock secs ( 0.54 usr +  0.00 sys =  0.54 CPU) @ 18
+.52/s (n=10)