マッチした数を取得する

　マッチ演算子を使う方法と置換演算子を使う方法があります。

use strict;
use warnings;

my $str = 'abcabcabc';
my $count = 0;
$count++ while $str =~ /a/g;
print $count, "\n";

use strict;
use warnings;

my $str = 'abcabcabc';
my $count = ($str =~ s/(a)/$1/g);
print $count, "\n";