Splitten ohne Zeichen?

[Calocybe]

Hi!

gibt es in Perl eine Möglichkeit, ohne Zeichen zu splitten? Also z.B. dass von einer Zahl (z.B. 32549) jede Ziffer als Skalar eines Arrays gesplittet wird?
Bzw. kann man es auch machen, dass nach jeder 2. Ziffer (oder 3., 4. ...) splittet?

Mit split() geht das meines Wissens nicht. Ich wuerde das ungefaehr so machen:

$string = "32549";
push(@chars, $1) while($string =~ s/^.//);

bzw. um immer zwei Zeichen abzusplitten:

push(@twochars, $1) while($string =~ s/^..//);
push(@twochars, $string) if ($string);   # falls eine Ziffer uebriggeblieben, diese auch noch pushen

Calocybe