perl -pe's{(\d+)}{($1>1024)?(sprintf("%".length($1)."d",$1/1024)):$1}eg;'