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