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