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