my $test = '\ntest1\ttest2\ntest3\n';
eval '$test = "' . $test . '"';
print $test, "\n";