$c = $a =~ tr/.//