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