Select Code to Download

# https://www.perlmonks.org/?node_id=11110379
# usage: perl create_fasta.pl > NR.fasta
...
        print "$s\n";
    }
}

# https://www.perlmonks.org/?node_id=11110379
# usage: perl create_peptides.pl > peptides.txt
...
    my $seq = join '', shuffle(split //, $nr_partial_seq), "\n";
    print substr($seq, rand($len), 15), "\n";
}