my  $date = " 5/ 2/1998";
$date =~ m|\s?(\d*)\s?/\s?(\d*)\s?/\s?(\d*)|;