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

##</code><code>##

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