sub compatible { my ($s1, $s2) = @_; y/_/\0/c for $s1, $s2; !(($s1 | $s2)=~y/\0//); } print(compatible("_8__3__19", "48_____7_") ? "true\n" : "false\n");