[匿名]

よろしければ、実際使っている正規表現を教えてもらえると、Perl使う身としては助かります。 :-)
後方参照も区別する必要ないなら、こちらのほうがスマートですか。
${ foobar}みたいなのは無視するとして、

[$@%*]w+ 正規表現/大文字小文字区別