perl -pe's{\b(\d+)\b}{ sprintf "%*d", length $1, $1/1024 }ge'