use strict;
use diagnostics;
use Data::Dumper;

my $date = 'Wed Jun  7 14:27:38 2006';
my ($wday, $mon, $mday, $time, $year) = split(/\s+/, $date);

print Dumper($wday, $mon, $mday, $time, $year);
# $VAR1 = 'Wed';
# $VAR2 = 'Jun';
# $VAR3 = '7';
# $VAR4 = '14:27:38';
# $VAR5 = '2006';
# 

# This is perl, v5.8.8 built for i686-linux