open(OUTPUT, "$script |"); my @output = grep { EXPRESSION } ;