# Specific case:
/(?:\d\s+foo[^\r\n]*)/;

# General case:
$repeated = qr/\d\s+foo/;
/(?:$repeated[^\r\n]*)$repeated/;