проблема с perl и regexp

пишу такой код

if ($a = /some exp/){ print "$a\n"; }

и получаю 1 в консоли, если поменять $a на $1 говорит, что use of uninitialized value

пользую actviperl 5.8.8 каюсь, под винду, просто немогу сейчас линух ставить