my $text = q~Haus Abendsonne haussonne hurz~;
 
for my $word ( split /\s+/, $text ) {