sub comp2 { return undef if (length($_[0]) != length($_[1])); my $i = diffline($_[0],$_[1]); if ( ($i < length($_[0])) && (substr($_[0],$i+1,1) eq substr($_[1],$i,1)) && (substr($_[0],$i,1) eq substr($_[1],$i+1,1)) && (substr($_[0],$i+2) eq substr($_[1],$i+2)) ) { return $i; } return undef; }