Then you need something like:

my $loop=0;
my $endloop=0;
while (<>) {
   ++$loop if /\bloop\b/;
   ++$endloop if /\bendloop\b/;
   print if /\bwarn\b/ && $loop > $endloop;
}
[download]