#!/usr/bin/perl

use warnings;
use strict;

my $zahl = "10000000,00";

$zahl = reverse $zahl;

$zahl =~ s%(\d{3})%$1\.%g;

$zahl = reverse $zahl;

print $zahl;

1;