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