Select Code to Download

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

s/\G\+$1[$bases]{$1}// while /(?=\+([0-9]+))/g;

1 while s/(?<=\+)([0-9]+)[$bases]/$1 - 1/eg;

1 while s/\+([0-9]+)[aAgGcC]/$1 > 1 ? '+' . $1 - 1 : ''/eg;