open(T,"$ARGV[0]");
foreach(@_=<T>){/$ARGV[1]/?print@_[$c..$ARGV[2+$c],exit:$c++}
close(T)