( substr( $seq, $offset, 25 ) ^ $25er ) =~ tr[\0][\0];