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