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

##</code><code>##

grep $_, unpack 'C*, ...