open(T,"<$ARGV[0]");
my (@data,$count);
foreach((@data = <T>)){++$count;(/$ARGV[1]/)?eval{print;for(1..$ARGV[2]){print $data[$count] if defined $data[++$count];};exit()} : undef;}
close(T);