Поиск переменных

[Error202]

По шаблону:
(\\$[a-zA-Z0-9_]+)
Я нахожу все $Var...

Как сделать так, чтобы $Var[XX] и $Var{XX} не входили в это условие?

[arto]

1. while ($a =~ m|\\$[\\w\\[\\{\\}\\]]+|g) { print "$&\\n" if ($& !~ m|[[{]|); }
2. %a = (\'a\' => 1}; print $a {\'a\'}; ?

[Error202]

Спасибо!!!