$zahl="54123.45";  ## irgendeine Zahl definieren
$zahl=~ tr/./,/;  ## Punkt durch Komma ersetzen
$zahl_ende=substr($zahl,-6);  ## die letzten sechs Zeichen abtrennen
my $Laenge = length($zahl); ## die Länge der Zahl ermitteln
$k=$Laenge-6;  ## die restliche Länge ermitteln
$zahl_anfang=substr($zahl,0,$k);  ## die ersten Zeichen abtrennen
out $zahl_anfang.".".$zahl_ende; ## Zahl mit Punkt wieder zusammensetzen