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;
In Section
Seekers of Perl Wisdom