#!/usr/bin/perl
use strict;
use warnings;

while(<>) {
	if ( />/ ) {
		my @header = split /\|/, $_;
		print ">$header[1]\n";
	}
	else {
		print $_;
	}
}