perl 取出正则表达式的匹配位置

my $a="1234567895";
while ($a=~/5/g) {
    my $p=pos($a);
    print "$p\n";
}