Perl: возврат в начало строки...

Hi!
Есть код:
my $str="k=1 z=6";
if($str=~/z=\d*/ig)
{
print "1 Ok!\n";
}
if($str=~/k=\d*/ig)
{
print "2 Ok!\n";
}

при его запуске выведется только "1 Ok!"... Как "вернуться" в начало строки $str чтобы вывелось еще и "2 Ok!"?

ЗЫ:Можно конечно перед вторым ифом определить еще одну переменную(например $str2 и работать дальше с ней), но меня этот вариант не очень устраивает.