format number with leading non-zero

[email protected] (William)
Newsgroups perl.beginners
Message-ID <[email protected]>
Hello, I want to format a number to become a 9 digits representation, every time it must have an integer 1 at the front.

E.g 
123 become 100000123
123456 become 100123456

If I use sprintf I can only make it to have leading zero such as sprintf("%09d", $number);

Thanks.

William


Send instant messages to your online friends http://uk.messenger.yahoo.com
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.