Select Code to Download

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

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