Homework 8. Randomly generate five 100 AA long protein sequences and store them in a FASTA file
From Biolecture.org
It is Yeonsong`s idea
#!/usr/bin/perl
use strict;
use warnings;
my @chars=('A','C','D','E','F','G','H','I','K','L','M','N','P','Q','R','S','T','V','W','Y');
my $random_string;
my $i;
for($i = 1; $i <=5 ; $i++)
{
print $i,".";
for(1..100)
{
$random_string = $chars[rand @chars];
print $random_string;
};
print "\n\n";
};