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