my $substr_count_2 = @{[$string =~ m/(a)/g]};