while (<>) {
    if (/^(>[^|]*)/) {
        print "$1\n";
    } else {
        print;
    }
}