also in perl5 würde ich sagen: s/\.(?=\d{3})//g

perl 6 sieht bestimmt nicht viel anders aus... wenn lookarounds da nicht anders geschrieben werden.

es ist übrigens nett und hilfreich, wenn man als fragesteller kurz sagt, was man schon probiert hat, sonst sieht das so nach "löst mir meine hausaufgabe" aus.

edit:
so funktioniert es in rakudo:
$n.subst(rx/\.<?before \d ** 3>/, '', :g)
Last edited: 2011-08-08 10:13:51 +0200 (CEST)