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