my $m = 'Hello\nWorld';
print eval "qq($m)";