Hallo Thomas,
mit Perl würde ich es so machen:
($neueZahl, $dummerRest = split(///, $alteZahl);
Das hätte den Vorteil, dass es auch klappt, wenn $neueZahl mal länger oder kürzer ist als 4 Zeichen und wenn $dummerRest auch mal länger oder kürzer ist als 1 Zeichen. Nur der Trenner muss immer / sein, damit es funktioniert.
wenn schon so aufwendig, dann aber bitte so:
($neueZahl,undef) = split(///,$alteZahl,2);
$dummerRest belegt unsinnig Speicherplatz! ;-)
Gruß
Reiner