while ( <$fh> ) { push @lines, $_ if /START/ .. /END/ }