sub compare_blazar_mod {
    ( $_ = $_[0] ^ $_[1] ) =~ tr/\0//d;
    2 < length;
}