$date =~ m|(\d{1,2})/(\d{1,2})/(\d{4})|; 
($month,$day,$year) = ($1,$2,$3);