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