@TheFields=split(/\|/, $TheRecord);