https://bioinformaticsonline.com/snippets/view/27802/perl-script-to-generate-a-random-psuedo-dna-sequence? https://bioinformaticsonline.com/snippets/view/27802/perl-script-to-generate-a-random-psuedo-dna-sequence Mon, 13 Jun 2016 08:49:13 -0500 https://bioinformaticsonline.com/snippets/view/27802/perl-script-to-generate-a-random-psuedo-dna-sequence #!/usr/bin/perl print "Enter a number of nucleotides: \n"; chomp ($N = <STDIN>); @b=qw/A T G C/;print ">Genome\n";while($l<$N){print @b[int(rand(4))];$l++;}; print "\n"]]> Abhi