perl -lae 'F[1]-=8; next if (/^\s*$/); print "@F"' structure.pdb