If there is a way, I do not know it, but you can use open to the same effect; e.g. (adapted from perlfaq8):

my $pid = open( GREP, "-|", 'grep', @opts, $search_string, @filenames 
+);
chomp(@ok = <GREP>);
close GREP;
[download]