my $date = 'Jan 21 00:41';
my ($mon, $day, $hour, $min) = $date =~ /(\w+)\s(\d+)\s(\d+):(\d+)/;
foreach($mon, $day, $hour, $min){
    print "$_\n";
}
[download]

$datehit =~ /(\w+\s\d{2}\s\d{2}\:\d{2})/;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.