$date=~/(\d\d?)\/(\d\d?)\/(\d{4})/
##</code><code>##

$date=~/(\d{1,2})\/(\d{1,2})\/(\d{4})/
##</code><code>##

$date=~/(0?[1-9]|1[0-2])\/(0?[0-9]|[12]\d|3[01])\/(\d{4})/