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