in reply to Splittin the Date
my date = scalar localtime; my($month,$day,$year) = unpack("x4 a3 x1 a2 x10 a4",$date); [download]