in reply to Regular expression
{ s/(\d)(\d\d\d)(?!\d)/$1,$2/ && redo } [download]
MeowChow s aamecha.s a..a\u$&owag.print
I like that. Thanks for sharing it.