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