use IPC::Run qw(run);

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

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