Help for this page
$txt = ' __\\U//__ '; print("$txt\n"); # Prints __\U//__ ... $txt =~s/\\/\\\\/g; print("$txt\n"); # Prints __\\\\U//__
$txt = <DATA>; print("$txt\n"); # Prints __\\U//__ ... __DATA__ __\\U//__