Am handlichsten ist immer noch diese Definition von Wort: alles was sich ausschließlich durch Textanfang, Whitespace oder Textende sich begrenzen läßt und keines davon enthält.

my @woerter = split ( /\s+/ , $text );

Vorraussgesetzt, wir haben Whitespace so definiert, daß Perls \s es richtig trifft...

Update: Das ist ja ein später glorreicher Einfall von mir, aber die Aufgabenbeschreibung paßt sehr zum Unix-Shell-Tool wc

Quote

wc - print the number of newlines, words, and bytes in files

\n\n

<!--EDIT|Relais|1103710401-->