$c = () = $a =~ /\./g


##</code><code>##

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