Yet Another (stupid) Way To Do It:

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

<kbd>--
my $OeufMayo = new PerlMonger::Paris({http => 'paris.mongueurs.net'});</kbd>