my @opin = &attributes();
	 	
	my @lines = @opin;
	
	my ($selected, @selections);

for my $lines(@lines) {
    if ( $lines =~ /ATOM\s+    
              \d+\s+         
              ([A-Z]{1,2})\s+
              ([A-Z]{3})\s+      
              [AB]\s+             
              \d+\s+        
              \d+\.\d+\s+    
              \d+\.\d+\s+      
              \d+\.\d+\s+     
              \d+\.\d+\s+      
              \d+\.\d+\s+  
              [CNO]$/x  )  
            {
             $selected = $1 . " | " . $2 ;
            
             push @selections, $selected;
     }
}

print O "@selections";

	close (O);
	close (I);