my $x = '\t\t\n\t\n\n';
eval "\$x = \"$x\"";
print "$x";