Select Code to Download

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";