Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    my $text = $_->as_text ();
    print "$1\n" while $text =~ /(\w+\s+\d+,\s*\d+)/g;
}
  2. or download this
    June 25, 1998
November 12,2006
September 21, 1999
December 36, 10