use Devel::Peek;

my $txt = 'some\text';

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

##</code><code>##

use Devel::Peek;

my $txt = "some\text";

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

##</code><code>##

use Devel::Peek;

my $txt = '\|/';
$txt =~s/\\/\\\\/g;

print $txt;
Dump($txt);

##</code><code>##

use Devel::Peek;

my $txt = '\\|/';
$txt =~s/\\/\\\\/g;

print $txt;
Dump($txt);