X[^XH]*?H[^H]*?D

##</code><code>##

perl -lne 'print $1 if /(X[^XH]*?H[^H]*?D)/'