my $day   = qr/[012]?[1-9]|[123][01]/;
my $month = qr/[1-9]|1[012]/;

if ( m/$day\.$month\.\d{4}/o ) .......