Select Code to Download

my $matched = ( 'GCGAT' ^ 'GNGAT' ) =~ tr[\0][\0];

$xord = 'GCGAT' ^ 'GNGAT';;

print unpack 'C*', $xord;;
0 13 0 0 0

$matched = ( 'GCGAT' ^ 'GNGAT' ) =~ tr[\0][\0];;

print $matched;;
4

if(  $matched >= ( length( $q ) -1 ) ) {
    ## we have a winner