• Use formats
• Use pack:

  use strict;
  open INPUT, "<version.txt" or die "Blerch: $!\n";
  while (<INPUT>) {                     # read a line of input
    my @contents=split /\s+/;           # Split on whitespace
    print join ":",
            (pack("A10",$contents[0]), # Name, padded to 10 width
            pack("A5",$contents[1]),  # version, padded to 5 width
            "\n");
  }
  __END__
  Nameone   :100  :
  Nametwo   :110  :
  Namethree :120  :
  [download]

CU
Robartes-

Even easier is to use printf.

#! perl -slw
use strict;

my (@names, @numbers);

while (<DATA>) {
    chomp;
    my ($name, $number) = split' ';
    push @names, $name;
    push @numbers, $number
}
# right justified
printf "%10s : %8d\n", $names[$_], $numbers[$_] for 0 .. $#names;
print '';

# left justified
printf "%-10s : %-8d\n", $names[$_], $numbers[$_] for 0 .. $#names;
print '';

# strings left justified, numbers right justified
printf "%-10s : %8d\n", $names[$_], $numbers[$_] for 0 .. $#names;
print '';

__DATA__
nameone 101
nametwo 123456
namethree 1234567

C:\test>216893
   nameone :      101
   nametwo :   123456
 namethree :  1234567

nameone    : 101
nametwo    : 123456
namethree  : 1234567

nameone    :      101
nametwo    :   123456
namethree  :  1234567
[download]

---

Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

rdfield