Help for this page

Select Code to Download

Select or download this

use warnings
    FATAL => 'all'
...
    return do { my $i;  grep ++$i % 2, $string =~ m{ $ndn }xmsg; };

    }  # end sub m1()

Select or download this

c:\@Work\Perl\monks\Anonymous Monk\1027898>perl extract_9-15_digits_4.
+pl
#
...
ok 70 - list extraction
ok 71 - no warnings
1..71