Select Code to Download

#!/usr/bin/env perl

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

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

% ./t2.pl
Redir: $VAR1 = 'Test foo Test bar';