#! /usr/bin/perl

use strict;
use warnings;

sub taupu ($) {
   #--------------------------------------------------------------------------
   # sub          : t a u p u
   #--------------------------------------------------------------------------
   # Autor        : CD
   # Aufgabe      : Zahlen mit Tausendertrenner (".") ausgeben und Komma als
   #                Dezimaltrenner verwenden.
   #                (Kopiert aus dem Perl-Cook-Book und angepasst.)
   # Parameter    : Auszugebende Zahl
   # Rückgabewert : Zahl mit Punkten
   #--------------------------------------------------------------------------
   # 0.0.1 - 10.12.2002 - CD - Erstellt
   #--------------------------------------------------------------------------

   my $text = reverse $_[0];
   $text =~ s:\.:,:g; # deutsches Komma als Dezimaltrenner
   $text =~ s/(\d\d\d)(?=\d)(?!\d*,)/$1./g;
   return scalar reverse $text;
} # sub taupu

print taupu('109480238502985983509.670');