Funny, with my little test.txt, it counts to much words, due to umlauts... :)

I'd modifie the line inside the loop as

    $size++,print "-".$1."-"  while m{\b(\w+)\b}g;
[download]

to see where it fails.

regards,
tomte

---

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.