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