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