http://qs321.pair.com?node_id=167025


in reply to Re: read between two strings
in thread read between two strings

#-- 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/);
It's bad coding practice to write and test those twice, and you don't need to, if you pay attention to the return value:
my $inrange = /^%%Atom Coords/../^%%End Frame/; next unless $inrange; next if $inrange == 1 or $inrange =~ /E/; # skip first and last item + of range
Very simple. RTFM.

-- Randal L. Schwartz, Perl hacker