in reply to Simple filter from rows of input file

while (<SEQ>){
    chomp;
    $seq = quotemeta;
    while (<REP>){
        print OUT if /$seq/;
    }

}

[download]

In Section Seekers of Perl Wisdom