$dir='C:/texts/';
opendir(directory,$dir) or die "cant";
while($file=readdir directory){
	next if $file=~/^\./;
	$rfname=$dir.$file;
# print "Found file: '$rfname'\n";
open (CONT, $rfname);
	while (<CONT>){
	if($_=~m/([0-3]?[0-9(th)?(st)?(nd)?(rd)?]\s+Jan(uary)?|Feb(ruary)?|Mar(ch)?|Apr(il)?|May|Jun(e)?|Jul(y)?|Aug(ust)?|Sep(tember)?|Oct(ober)?|Nov(ember)?|Dec(ember)?\s+[0-9]?[0-9]?[0-9][0-9])/ig){
	print "$file\t $1\n";
	}
	elsif($_=~m/(Jan(uary)?|Feb(ruary)?|Mar(ch)?|Apr(il)?|May|Jun(e)?|Jul(y)?|Aug(ust)?|Sep(tember)?|Oct(ober)?|Nov(ember)?|Dec(ember)?\s+[1-3]?[0-9](th)?(nd)?(st)?(rd)?\s+[0-9]?[0-9]?[0-9][0-9])/ig){
	print "$file\t $1\n";
	}
}

}