my $pat = "\\d\\s+foo";