s/^(.{21})D/$1X/;

##</code><code>##

s/^(?<=.{21})D/X/;

##</code><code>##

s/(?<=.{21})D/X/;