use warnings;

$file = $ARGV[0];

open (FILE,$file) or die "Can't open $file!";
while (<FILE>) {
	$line = $_;
	chomp $line;
	if ($line =~ /\>/) {
		@modify_line = split(/\s/,$line);
		$changed_line = shift(@modify_line);
		$line=$changed_line;
		print "$line\n";
	}
}
close FILE;