Select Code to Download

.$.$G$.$.$C$.$.$.$G$.$,$,$,$.$.$.G,G,G...G,G...GG,.G.G...G.G....$.G..G
+,........G....,GGGG.,,,..G...,,.G.G..G..G..G
.G.GG..GG.G..,,G,,CG,G,GG..GG.$G.GGGG,,..GG...G.,G.GG.,G,G.$...,,.GGGG
+GG.GCG..G,,G,.G..G,,,G,.GGGG.,..G...,,,,G,,G..GGGG
A.,,,,,.+1GG.G.,,G,...G..GG,.G....+1G..GG..G,,G,,G.G,,.,,,.,,.CG.,,,,.
+,..G.,,,.,.,,GGGGGG,,.....G..GGGGG.,.G,,GG.G..GG,,
,....,.,..,G.,.,,,.,,,,G,,,.,.,..,.,,,...GG,.,G.,G......,,,..,,.......
+.,..,.,,.,...,,..,.,C,..,,,.,,,,,....,,..,,,.,....
.,.,,.,...,,.,,,-1a.,,,,,.,,,,,,..,..........,,,,,.,...,,.,,^],^].^],^
+],^].^],^F,^],^],^],^],

while (m/\+([0-9]+)[ACGTNacgtn]/g) { 
  print "diff+: $1\n";
  my $m = $1;
  s/\+[0-9]+[ACGTNacgtn]{$m}// 
}