I agree with dragonchild. I wouldn't use substr like that:

my $record = " 127.0.0.1   1COMPUTER1    09/13/30828 22:48:05";
my @iparray = map {s/ //g;$_} split /[.]/, substr ($record,0,17);
print "@iparray";
[download]

Output:

dave