Select Code to Download

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);

one
two
...
werwr
werwer
seen?

# perl -w script.pl datafile pattern numlines
perl -w script.pl data.dat test 4