DB<111> $str1 = "000001";$str1 =~ m/[^0]/g; print pos($str1)
6