Select Code to Download

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

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

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