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