use strict;
use warnings;

my $t = '\\t';
print "$t:\n";

my $evaled = eval "qq/$t/";
print "$evaled:\n"