use Devel::Peek;

my $txt = 'some\text';

print $txt;  #prints some\text
Dump($txt);