$string="ATGCATTTGCATTTGCATTTGCATTTGCATTTGCATTTGCATTTTTGCATTTGCATTTGCATTTTTGCATTTGCATTTGCATTT";my @bases=$string=~/([ATGC])/g;print @bases[1..79];print "\n";print @bases[4..379];#######################精通perl
