sub a{$_=sprintf"%.2f",@_;1while s/\B...\D/,$&/;$_}