perl -pe's!(^|\s)((\d*?)\d)(\d)\d\d((\d{3})*)(?=\s)!$"x($x=length$5).$1.($3?" $2":"$2.$4").qw(K M G T)[$x/3]!ges'