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