foreach my $char ( split m{}, $str )
{
    my $ordVal = ord $char;
    my $fixedWidthOrdVal = sprintf q{%03d}, $ordVal;
    $numStr .= $fixedWidthOrdVal;
}