Try this:

use strict;
use Data::Dumper;

my $record = " 100.100.100.100    1COMPUTER1       09/13/30828 22:48:0
+5";
my @iparray = split(/\./, ($record =~ /^\s+([\d\.]+?)\s/)[0]);

print Dumper \@iparray;

__OUTPUT__
$VAR1 = [
          '100',
          '100',
          '100',
          '100'
        ];
[download]