Help for this page

Select Code to Download

Select or download this

  #-- Skip lines not in the section to be processed 
  next unless /^%%Atom Coords/../^%%End Frame/; 
 
  #-- Skip the section markers 
  next if (/^%%Atom Coords/ or /^%%End Frame/);

Select or download this

  my $inrange = /^%%Atom Coords/../^%%End Frame/; 
  next unless $inrange;
  next if $inrange == 1 or $inrange =~ /E/; # skip first and last item
+ of range