[MacPerl] simple global replace

[Allan Juul]

hi
am i going totally blind or?
from the snip below i want to output just:
aaa
aaa

what i get is :
aaa
aaa
 333 444<END>


why is that?
tnanks
allan


#!perl
$str = "aaa 111 222 aaa 333 444<END>";
output($str);
sub output{
        $text = $_[0];
        $text =~ s/.*?(aaa).*?/$1\n/ig;
        print $text;
}