open(OUTPUT, "$script |") or die "Cannot run '$script': $!"; my @output; while () { push @output, $_ if /EXPRESSION/; }