$record = " 100.100.100.100    1COMPUTER1       09/13/30828 22:48:05";
@iparray = split(/\./, do{($copy = substr($record,0,17)) =~ s/ //, $copy});
$" = ".";
print "@iparray";