Select Code to Download

my $str = "(foo + bar)\n(baz * quux)\n";

...
$str =~ tr/\n/ /;

print "<<$str>>\n";

<<_foo_+_bar_ _baz_*_quux_ >>