perl -pe's{(\d+)}{($1>1024)?(int($1/1024)):$1}eg;'

##</code><code>##

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