# Count number of atoms if ($_ =~ /^ATOM/) { ++$count; } } close *ARGV; ## Add this.