looks like a fixed length line, so iŽd simply go for substr():

$_="ATOM   3316  N   TYR D  24      97.479  18.805   2.990  1.00 36.32
+      D    N";
substr($_,21,1)="X";
print;
[download]

You can use a regex too.