sub compare{ 
    return ( length $_[0] == length $_[1] ) 
        && ( length( $_[0] ) - 1 <= ( $_[0] ^ $_[1] ) =~ tr[\0][\0] ) 
}