use strict;
use warnings;
my $flag = 0;
while (<DATA>) {
    if ($flag) {
         # print parts of $_ as necessary
    }
    $flag = /Ingress PSP/;
}