my $regex = qr/(\d\s+foo)/;
$some_string =~ /$regex[^\r\n]*$regex/;