use strict;
use threads;

my $t = shift;
my $u = $t;
$u =~ s/\\n/\n/g;
print "<$t>\n\n<$u>\n";