Select Code to Download

#!/usr/bin/perl -w
use strict;
...
Benchmark: timing 500000 iterations of Greedy, Negated...
    Greedy: 73 wallclock secs (73.60 usr +  0.00 sys = 73.60 CPU)
   Negated: 65 wallclock secs (64.97 usr +  0.00 sys = 64.97 CPU)

        Lazy    => '$myvar[$iteration] =~ /".+?"/',

Iteration:  0
Benchmark: timing 500000 iterations of Lazy, Negated...
...
Benchmark: timing 500000 iterations of Lazy, Negated...
      Lazy: 199 wallclock secs (198.66 usr +  0.00 sys = 198.66 CPU)
   Negated: 64 wallclock secs (64.59 usr +  0.00 sys = 64.59 CPU)