Using zgrep via system() is same as using bash with perl as a wrapper

... where "same" means "fast". I doubt that anything written in Perl will compete with zgrep's speed.