s:ValidVarCharをsubstitute化

[mattn]

高速化の為にsubstitute化したい。

substitute(a:str, '\([^\w]\)', '\="__".char2nr(submatch(1))."__"', 'g')

としたいが、どうやら文字単位でなくバイト単位で変数名を作っているらしい。根本から変えるか悩み中。