in reply to sprintf to zero-pad on the right

$string = 'TEST';
print substr $string . '0'x8, 0, 8;

TEST0000

[download]
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail

In Section Seekers of Perl Wisdom