$txt = ' __\\U//__ '; $txt =~s/\\/\\\\\\\\/g; print $txt;