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

##</code><code>##

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