Help for this page

Select Code to Download

Select or download this

open (SEQ, "<$ARGV[0]");
open (REP, "<$ARGV[1]");
...
        print OUT if /$seq/;
    }
}