$txt = <DATA>;
print("$txt\n");       # Prints __\\U//__

$txt =~s/\\/\\\\/g;
print("$txt\n");       # Prints __\\\\U//__

__DATA__
__\\U//__