sub a{$_=sprintf"%.2f",pop;{s/(\d)(\d{3})(?!\d)/$1,$2/&&redo}$_} [download]
In reply to Re: (Golf) Formatting Integer To Money by Abigail-II in thread (Golf) Formatting NumberTo Money by enoch