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