use Devel::Peek;

my $txt = "some\text";

print $txt; #prints some [tab] ext
Dump($txt);