Select Code to Download

 #!/usr/bin/perl

 use strict;
...
   print $name[$randname] ."\t". $randpos ."\t". ($randpos + $simlen) 
+."\n";
}}
close(RANGE);

48
479
324
69
12

>chr4.fa_58086846_58087846
GGGATAAGGTGGAAGCAATGATTTAATCACCACAGAAGAAATGTGCTCTGATTAATTGGG
...
GAACTCATCATTTTTTATGGCTGCATAGTATTCCATGGTGTATATGTGAGTAAATGTTCT
TTAGCAGCTGTCATTATCATTTTAGAGACAGAGTCTTGCTGGCATTATCTTCCCCATTTT
GCTCATGGAGAAACTGAAATAAGAAAATTATAGTCTGACT