while (<>) {
     print $_ if /Startpoint/ ... /slack/ ;
     last if /slack/;
}