in reply to Reg Exp Suggestion Needed

$padded = sprintf("%04d", $value);

[download]
--Dave

In Section Seekers of Perl Wisdom