in reply to Re (tilly) 1: Leading Zeros
in thread Leading Zeros

Here's some print scalar reverse "flog": 
s/\b(?=(\d\d?\b))/0 x(3-length$1)/eg;
# or
s/\b(?=(\d{1,3}))/0 x(3-length$1)/eg;

[download]


japhy -- Perl and Regex Hacker

In Section Seekers of Perl Wisdom