Select Code to Download

my $datetimestring = "5/4/13 16:09";
my ($month,$day,$year,$hour,$min) = split /\D/,$datetimestring;
my $str =  strftime("%b %d %Y %H:%M:%S", 0,$min,$hour,$day,$month-1,$y
+ear+100);