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