($acc_num, $ofname,$junk,$olname,$junk2) = split /|/, $line, 5; #### AccountKey|Given|MiddleName1|Surname|GeoCity