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