$ zgrep foo bar.gz

vs.
my @output = qx(zgrep foo bar.gz);