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