my $i = 1;
while (<DATA>) {
    if ($i and /Startpoint/ ... /slack/ && $i--) {
        print $_;
    }
}