Select Code to Download

sub compatible {
    my( $l, $r ) = @_;
...
        $char ne "\0" and index( $xor, $char, $_ + 1 ) != -1
    } 0 .. length( $xor ) - 1;
}

#!/usr/bin/perl
use strict;
...
    );
    is( compatible( @$strings ), $result, $testname );
}