#!/usr/bin/perl
# For those people who have an episodes file with tabs in it, this
# Perl script will convert your into the new | separated programs format.
#
#
# Run as cvt_episodes < episodes > tempfile; cat tempfile > episodes
#

while (<>) {
 if (/^#/) { print; next; }
chop;
($a,$b,$c)= split(/\t+/);
print("$a | $b | $c\n");
}
