$count = "0"
while (/(.)/g) { 
        $count++
}
print $count