#!/usr/bin/perl

$i = "1101010001";

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

$len = length($i);

print $len;

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