Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    my $str = shift;
    my @matches = $str =~ /(\b.(?!ox))/g;
}
  2. or download this
    timethis 1000:  3 wallclock secs ( 2.38 usr +  0.00 sys =  2.38 CPU) @
+ 421.05/s (n=1000)

3 2.375 0 0 0 1000