my ($day,$month,$date,$hour,$min,$sec,$year)=split /[ :]/,"Mon Jul 17 
+17:59:31 2000";
[download]

cLive ;-)