$txt = ' __\\U//__ ';
print("$txt\n");       # Prints __\U//__

$txt = ' __\\\\U//__ ';
print("$txt\n");       # Prints __\\U//__

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

##</code><code>##

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

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

__DATA__
__\\U//__