sub FormatGermanOrAustrianOrSuisseReadableLongNumberWithDotsAfterEachThreeFigures {
  # version: 0.01 01 Aug 2005 Strat
  my (@numbers) = @_;
  foreach (@numbers) {
    1 while s/^([+-]?\d+)(\d\d\d)/$1.$2/; # vor komma
    1 while s/(\d\d\d)(\d+)$/$1.$2/; # nach komma
  } # foreach
  return @numbers;
} # FormatGermanOrAustrianOrSuisseReadableLongNumberWithDotsAfterEachThreeFigures