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