BillKSmith reminded me, you can also use autosplit.

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