[해피CGI][cgimall] 스트링에서 특정문자 갯수 알아내기

0을 예로 들어봅니다.
0의 갯수를 세는 방법이죠.

#!/usr/bin/perl

$i = "1101010001";

$i =~ s/[^0]//g; <--0 이외에는 전부 없애 버린다.

$len = length($i);

print $len;

음...잘 되는 군요....^^