#!/usr/bin/perl

use warnings;
use strict;

# Tausender-Trenner einfuegen
my $src = "Die Population der 133. Kolonie betraegt 12386588898 Einwohner pro Quadratzoll. Dazu braeuchte man bis zum Jahre 2098 genau 1234357891 Liter Wasser, um die zu giessen.\n";

# Von Ingo angepasste Version. Danke!
$src =~ s/
    (?<=\d)          # Keine Zahl vornedran
    (?=            
         (:?\d\d\d)+ # 3 Stellige Zahlen (Non-capturing)
         (?!\d)      # Keine Ziffer folgend
     )/'/gx;

print $src;