Select Code to Download

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

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