Help for this page
open my $fh, '<', 'path/to/my/PDB/file' or die "Could not open PDB fil +e: $!"; while (<$fh>) { ... }