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