Select Code to Download

$data = substr(rndStr(80,qw[a c g t]),0,80));

sub rndStr{ join'', @_[ map{ rand @_ } 1 .. shift ] };;

...

print length $x, ':', $x;;
80 : actaatcttgcgccgcggcttcatacgagatgaatagtacgaaaacttggatacacctgtatcat
+agaagggccgctgcg