#!/usr/bin/perl -w

use strict;

my @days = qw/Sun Mon Tue Wed Thu Fri Sat/;
my @months = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;

my $day_re = join "|", @days;
my $month_re = join "|", @months;

while (<>) {
	if (/($day_re) ($month_re) (..) ..:..:.. (....)/) {
		print "Day Name: $1, Month $2, Day: $3, Year $4\n";
	}
}