#!/usr/bin/env perl

use strict;
use warnings;

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

use IPC::Run qw(run);

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

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

print "Redir: " . Dumper($out);