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