substr ($old, $subscr, 0) = $span;
  substr ($new, $subscr, 0) = $span;