$ perl -Mstrict -Mwarnings -E ' > open my $inFH, q{<}, \ < ssdfif > START > Line 1 > Line 2 > END > iufifhu > wieuhwi > START > Line 3 > Line 4 > END > wkwwef > wefwef > EOD > > { > my $inWanted = 0; > local $/ = qq{START\n}; > while ( not eof $inFH ) > { > $_ = <$inFH>; > if ( $inWanted ) > { > chomp; > print; > $inWanted = 0; > $/ = qq{START\n}; > } > else > { > $inWanted = 1; > $/ = qq{END\n}; > } > } > }' Line 1 Line 2 Line 3 Line 4 $