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

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