http://www.perlmonks.org?node_id=1045689


in reply to Re^3: Iso electric point calculation using perl
in thread Iso electric point calculation using perl

And this needs explanation:

while (<S>){ #Read the FASTA file.
    chomp;

    if (/>/){
        s/>//;
        $key= $_;
    }else{
        push (@{$s{$key}}, $_);
    }

}

[download]

In Section Seekers of Perl Wisdom