Select Code to Download

use strict;
use warnings;
...
ATOM     31  CA  HIS A  66       7.318  14.688  12.568  1.00 12.48    
+  A    C  
ATOM     32  C   HIS A  66       8.676  14.309  13.156  1.00 11.62    
+  A    C  
ATOM     33  O   HIS A  66       9.708  14.518  12.545  1.00 11.76    
+  A    O

while ( <DATA> ) {
  next unless /^ATOM\b/;
...
ATOM     37  CD2 HIS A  66       4.073  14.085  13.360  1.00 13.93    
+  A    C  
ATOM     38  CE1 HIS A  66       3.063  14.347  11.461  1.00 14.23    
+  A    C  
ATOM     39  NE2 HIS A  66       2.851  14.410  12.778  1.00 14.47    
+  A    N