Select Code to Download

sub a{$_=sprintf"%.2f",pop;while(s/\B\d{3}\b/,$&/){}$_}

sub a{$_=sprintf"%.2f",pop;{s/\B\d{3}\b/,$&/&&redo}$_}