in reply to How to print lines between two patern only one time, not multiple timese as pattern exists in this file multiple times.
while (<>) { print $_ if /Startpoint/ ... /slack/ ; last if /slack/; } [download]