This is a perfect job for sprintf. Try something like this:

while (<IN>) {
    chomp;
    my $padded;
    $padded .= sprintf("%03d", $_) for split /\./;
}
[download]

Update: I like Aristotle's solution better. Use that one, not mine. TIMTOWTDI! :-)

-- Mike

--
just,my${.02}