Help for this page

Select Code to Download

Select or download this

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