use Devel::Peek; my $txt = '\\|/'; $txt =~s/\\/\\\\/g; print $txt; Dump($txt);