Select Code to Download

#!/usr/bin/perl
use warnings; 
 $string="ATATGCGCAT";
...
print $fh "\n";  
close $output;     
exit;

 
~A1
~A1
...
~A2T2A2T1G1C1G1C2
~A2T2A2T2G1C1G1C1
~

~A1T1A1T1G2C2G2C2A?T?
~A1T1A1T2G2C2G2C1A?T?
...
.....................
.....................
~