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