in reply to Reg Exp Suggestion Needed

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