perl -ne'chomp(my $KiB =$_); my @pref = qw(K M G T P);my $i = 0; while($i<@pref){ last if $KiB/1024 < 1; $KiB/=1024;$i++} printf "${_}KiB = %.3f$pref[$i]iB\n",$KiB'