Select Code to Download

  my @new = split //, $new;
  my $longer = (@cold > @new) ? $#cold : $#new;

  my @cnew = split //, $new;
  my $longer = (@cold > @cnew) ? $#cold : $#cnew;

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

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

  my $losubscr; #two subscripts because differ len of new and old
  my $lnsubscr; 
...
  substr ($new, $lnsubscr, 0) = $espan;
  substr ($old, subscr, 0) = $span;
  substr ($new, subscr, 0) = $span;

  my $lsubscr;
  @cold = reverse @cold;
...
  substr $new, $lsubscr, 0, $espan;
  substr $old, $subscr, 0, $span;
  substr $new, $subscr, 0, $span;

while ( defined( my $first = <DATA> ) && defined( my $second = <DATA> 
+) ) {
    print spandiffstr( $first, $second );
...
    return $old, $new;
    }