perl -e 'while (<>){print if (/^START/../^END/);}' input.txt