my $qr = qr!\d{3}\s+\w!;

if ($str =~ /$qr/) {
	.. etc...
}