while (<>) {
  if (/^(>\S+)/) {
    print "$1\n";
  } else {
    print;
  }
}