my $pat = qr/\d\s+foo/;