use IPC::Run qw(run);

my @arr = qw(
abc
def
);

my $input = join("", map "$_\n", @arr);
run [ sed => 's/[ad]/o/' ], "<", \$input, ">", \my $output;
print "O: [$output]\n";