Help for this page

Select Code to Download

Select or download this

while (<IFILE>) {
        chomp;
        if ($_ =~ /sequence/){
        @headerseq = split('\n',$_);