in reply to sprintf zero-fill issue

I like: 

my $var1alt = substr "00000000000000".$var1, -14;
my $var2alt = substr "00000000000000".$var2, -14;

[download]

In Section Seekers of Perl Wisdom