<perl>

my $Satz = "uni-eng-spa";
my @Woerter = split(/-/,$Satz);
my $Anzahl = @Woerter;

out "<p>Der Satz <b>$Satz</b> hat $Anzahl Wörter. Nämlich:</p>";
out "<ul>";
foreach(@Woerter) {
  out "<li>$_</li>";
  }
out "</ul>";

</perl>