$string = "foobar";
$count = $string =~ s/(.)/$1/sg;