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

my $file = $ARGV[0];
my @line;

open (my $input, "<", $file) || die "$file not available\n\n";
while (<$input>)
	{
		if ($_ =~ /^>/)
			{
				@line = split (/\|/, $_);
				print STDOUT "$line[0]\n"; 
			}
		else
			{
				print STDOUT "$_";
			}
	}