Select Code to Download

use IPC::Run qw(run);

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

use IPC::Run qw(run);

...

run [ echo => join("\n", @arr) ], ">", \my $output;
print "O: [$output]\n";