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