in reply to reverse interpolation

You could also do a replace: 
$y = $x;
$y =~ s/\t/\\t/g;

[download]

In Section Seekers of Perl Wisdom