in reply to Reg Exp Suggestion Needed
There's an option in sprintf that'll help you get what you need.
perldoc -f sprintf