$TheRecord="Serling|Rod|Twilight Zone|";
@TheFields=split(/(?:\|)/, $TheRecord);