$userdate = "12/31/2005";
my ($mon, $mday, $year) = split /\//, $userdate;