1+index $s, $c or return 0 while length($c = chop $w);