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

}