Help for this page

Select Code to Download

Select or download this

    while (<>) {
        s/^>.+?\K\|.*$//;
        print;
    }