in reply to Not sure what I am doing wrong

Update you can skip ths node if you've read Re: Not sure what I am doing wrong by massa

depending on the data, and what you're seaching for, you can make one pattern, by using

$regex = join '|', map quotemeta, @REC; print "I want $EACH_LINE" if $EACH_LINE =~ $regex

It will get you a pattern made up of all the lines in the file, joined by | which will match any of them

It may need anchoring if the lines are to match the full line instead

Also, the quotemeta presumes you just want literal strings (remove it if @REC contains regexen)

@_=qw; ask f00li5h to appear and remain for a moment of pretend better than a lifetime;;s;;@_[map hex,split'',B204316D8C2A4516DE];;y/05/os/&print;