# original: my $pat = "\d\s+foo";
# fixed:
my $pat = "\\d\\s+foo";

my $regex = qr/$pat[^\r\n]*$pat/;