The pipe character is not whitespace. You can mention it in the regex, you even do not have to backslash it, because it appears in a character class:

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