#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use IPC::Cmd qw/run/;

my @in = ("Test foo", "Test bar");

print "In: " . Dumper(@in);

my @out = 
  run(command => 'echo -n ', \@in , '| sed -r "s/(foo|bar)/pass/"');

print "Out: " . Dumper(@out);