$numStr .= sprintf q{%03d}, ord for split m{}, $str;