$date =~ m{(\d\d?)/(\d\d?)/(\d{4})};