http://qs321.pair.com?node_id=193837


in reply to Re: (Golf) Formatting Integer To Money
in thread (Golf) Formatting NumberTo Money

49 Characters:
sub a{$_=sprintf"%.2f",pop;while(s/\B\d{3}\b/,$&/){}$_}
Update: 48 characters:
sub a{$_=sprintf"%.2f",pop;{s/\B\d{3}\b/,$&/&&redo}$_}
--Dave