my $date = qr/...../;
if(m/$date/)
{
    .....
}