http://qs321.pair.com?node_id=979950


in reply to Getting lines in a file between two patterns

One option would be to use the range operator eg.
perl -e 'while (<>){print if (/^START/../^END/);}' input.txt
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."