Вопрос по perl

[Alex Emergy]

$ echo o-o |perl -pe 'my $res; while ($_ =~ /([A-Za-z0-9]+)/g) { $res .= 
$1; };print $res;'
ooo-o
$


Почему на выходе 'o-o'? Как сделать, чтобы я получал только содержимое $res?

-- 
С уважением,
Alex Emergy