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

##</code><code>##

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