#!/usr/bin/env perl -w
use strict;
use File::Slurp 'edit_file_lines';
my $inFile = shift;

edit_file_lines { m/\>/ && s/(\S+)\s.*/$1/ } $inFile;
__END__