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