Select Code to Download

sub compatible {
    my ($s1, $s2) = @_;
...
        for [ qw[ _8__3__19 48____7__ ] ],  # compat
                [ qw[ _8__3__19 4_8___7__ ] ],  # compat
                [ qw[ _8__3__19 48_____7_ ] ];  # clash

sub compatible {
    my ($s1, $s2) = @_;
...
                [ qw[ __8_3__19 48____7__ ] ],  # clash
                [ qw[ __8_3__19 84____7__ ] ],  # clash
                [ qw[ _8__3__19 48_____7_ ] ];  # clash