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