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