while (m/[+-]([0-9]+)/g) {
    printf "pos ($1): %d -> ",pos($_)-1;
    pos($_) -= length($1)+1;
    printf "pos ($1): %d\n",pos($_)-1;
    s/\G[+-]$1[ACGTNacgtn]{$1}// || last;
  }