in reply to Re^2: matching multiple patterns in one line
in thread matching multiple patterns in one line

One way that seems to do what you're looking for:

print "$_\n" for grep {$_ =~ /$regex/} @lines;