Select Code to Download

#!/usr/bin/env perl -w
use strict;
...

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

#!/usr/bin/env perl -w
use strict;
...
  push ( @keep, ($line =~ /\>/ ? (split(/\s/, $line))[0] : $line));
}
write_file( $outFile, join("\n", @keep, '') );