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