Hi Tom!
Sorry, ich hatte da einen Fehler gemacht (und diesen dann weiter kopiert):
Nochmal mein Text:
push(@chars, $1) while($string =~ s/^.//);
Muss heissen:
push(@chars, $1) while($string =~ s/^(.)//);
Durch die vergessenen Klammern um den Punkt wurde $1 nicht definiert - das konnte natuerlich nichts werden.
Analog statt
push(@twochars, $1) while($string =~ s/^..//);
push(@twochars, $1) while($string =~ s/^(..)//);
Ansonsten ist der Code ok. Tausche einfach nochmal die push-Zeile aus.
Calocybe