$str="There's many more ways to do it.\n";

$str =~ tr/\000-\xff/./;

while ( $str =~ /(.)/g ) {
   $count++;
}

##</code><code>##

$count2++ while chop $str;
$count eq $count2 or warn "there's something wrong with this code.\n";