1 while $zahl =~ s/(\d+)(\d{3})/$1.$2/;

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/