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