Select Code to Download

use strict;
use threads;
...
my $u = $t;
$u =~ s/\\n/\n/g;
print "<$t>\n\n<$u>\n";

$ perl zoop.pl "foo\nbar\n\n\nbaz"
<foo\nbar\n\n\nbaz>
...

baz>