#!/usr/bin/perl -w
$_= "193287461528";
sub zero() { "0 but true" }
zero while s/(\d)(\d\d\d)(\D|$)/$1,$2$3/;
print;
my $x= 0+zero;