print "wird zu: " . mach_deutsch (123456789.01);
sub mach_deutsch {
local $_ = reverse sprintf "%.*f",2,shift;
s/(\d{3})(?=\d)(?!\d*\.)/$1,/g;
tr/.,/,./;
return scalar reverse $_;
}