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