Select Code to Download

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

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

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