如何计算这种类型的字符串中的零数:
my $string = '11100000000010000011000';
传统和快速的方法是使用tr:
tr
my $count = $string =~ tr/0//;