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

##</code><code>##

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