How can I count characters in Perl?

Question

I have the following Perl script counting the number of Fs and Ts in a string:

my $str = \"GGGFFEEIIEETTGGG\";
my $ft_count = 0;
$ft_count++ while($str =~ m/         


        

Answer 1

Yes, you can use the CountOf secret operator:

my $ft_count = ()= $str =~ m/[FT]/g;