質問させてください。
ActivePerl-5.8.4.810-MSWin32-x86.msi　とwin2000を使っています。

my $Name_T = '';
$Name_T =~ s/([\x20(){},+^~%`])/{$1}/g;

いろいろ試してこのような正規表現で以下の文字が$Nameに含まれている場合{}をつけて置換しようとしました。
(){},+^~%`　とスペース

+なまえ+　→　{+}なまえ{+}
%^なまえ^%　→　{%}{^}なまえ{^}{%}

こんな感じです。始めは上手くいっていたのですが不具合をみつけました。
"タ"や"ミ"、全角の"＋"などです。

"タ"や"ミ"は"ボ^}"と置換されていまい、全角の"＋"は"＋{}"と置換されてしまいます。
ご指摘、アドバイス等いただければ幸いです。