Hallo Andreas,
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.
Gruß,
Thomas