$out_file="/tmp/brian_test.$datestring";
    open(IN,"<$TMPCONTLIST") or die "Can't open $TMPCONTLIST!\n";
    open(OUT,">$out_file") or die "Can't open $out_file!\n";
    while ($line=<IN>) {
        @fields = split /\t/,$line;
        $line = join "|", @fields[1,2,3,4];
        print OUT $line;
        print OUT "\n";
    }
    close IN;
    close OUT;