use feature ":5.14";
use warnings FATAL => qw(all);
use strict;

my $h = "aaa bbb ccc aaa aaa";
say scalar (() = $h=~m(aaa)g);