Вопрос по perl
1206
1
Обьясните мне дураку, что случилось.
вроде простой код

$text =4333;
if ($text = ~ /(\d)/)
{
print $1;
}
else
{
print "dasdasdaddd";
}

print $text;

Иф проходит, но $1 не печатаеться.

Когда делаю
print $text;
получаю 4294967295

Что я делаю не так.
Понять не могу, при поиске $text изменяеться я так понимаю?
Фигня какаято...
NNP
Вообщем я сам дурак, вопрос решил.