($acc_num, $ofname,$junk,$olname,$junk2) = split /\|/, $line, 5;