Select Code to Download

my $x = "..multiline\ntext..";
print qx{ echo '$x' | sed 's/^/> /'};

my $x = qq(..multiline\ntext.."');
open my $CMD, '|-', q{sed 's/^/> /'} or die $!;
print {$CMD} $x;
close $CMD;