请教连续匹配的问题

$line = "abcdabefaghaiajk";

if ($line =~ m{
                (a)

                }xg) {
                        my $tmp = " ";
                        $tmp = $1;
                        print $tmp."\n\n";
}


abcdabefaghaiajk
怎么找出上面行中所有的a并输出？
我的代码只能输出一个a

解决了。if改为while