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

##</code><code>##

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

##</code><code>##

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