perl -wle ' s/^(\d+)/("0"x(6-length).$1)/xe and print or
    s/^(\w)/("\x20"x(6-length).$1)/xe and print for @ARGV;' 133 121 10 13 red