use strict;
use warnings;

open (F, "hiv.fasta");
open (F2, ">hiv2.fasta");
while (<F>) {
  if (/^>/) {
    my ($name,) = split /\s/;
    print F2 "$name\n";
  } else {
    print F2 "$_";
  }
}
close (F);
close (F2);

