#! /usr/local/bin/perl

open (TEXT_FILE, "file1.txt"); 

while ($line = <TEXT_FILE>) {
        if ($line =~ m/ERROR/) {
        
        $c = 0;
        
        while ($c <= 10)
        {
                $nextline = <TEXT_FILE> ;
        	printf ("$nextline");
        	$c = $c + 1;
        }
        }
}
close (TEXT_FILE);