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