#!/usr/bin/perl -w

use strict;

my $date= 'Sun Apr 1 10:27:03 CDT 2001';

if ($date =~ m/^(\w{3}\s+\w{3}\s+\d+)/) {
	print "Matched $1\n";
}

##</code><code>##

my $date= 'Sun Apr 1 10:27:03 CDT 2001';
my ($weekday, $month, $day) = split " ", $date;

print "$weekday $month $day\n";