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