But you've heard about printf or sprintf or POSIX?
Those would shorten this your code by 50% up to 80%. *grin*
And you don't need to install them cause they are where Perl is.

Have a nice day
All decision is left to your taste