#!/usr/bin/perl -w use strict; use Regexp::Common qw(time); while () { print if ($_ =~ $RE{time}{strftime}{-pat => '%B %d %Y'}); } __DATA__ December 15 2005 some line Flat File Release 100.0 someline