That should be

my $pat = "\\d\\s+foo";
[download]

or better yet

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

Your pat incorrectly matches "dssssfoo", and doesn't match "1 foo" as it should.

my $pat = "\d\s+foo";
print("$pat\n"); # ds+foo
[download]