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

##</code><code>##

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