相关疑难解决方法(0)

我有以下Perl脚本计算字符串中的Fs和Ts的数量:

my $str = "GGGFFEEIIEETTGGG";
my $ft_count = 0;
$ft_count++ while($str =~ m/[FT]/g);
print "$ft_count\n";

是否有更简洁的方法来计算(换句话说,结合第2和第3行)？