perl -pe's/(^|\s)((\d*?)\d)(\d)(\d)\d(\d{3})?(?=\s)/$1.($6&&"   ").($3?"  ".($2+($4>4)):$2+($4+($5>4))/10).($6?"G":"M")/ges'