Select Code to Download

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

perl -ne "print((<>)[0..3])if/ou/" test.txt