$ipadrs = substr($record,0,17)) =~ s/ //g;
    @iparray = split(/\./,$ipadrs);

##</code><code>##

@iparray = split(/\./,(substr($record,0,17) =~ s/ //g));
##</code><code>##

@iparray = @{split(/\./,(substr($record,0,17) =~ s/ //g))};