if ($line =~ /^>(.+)$/ ) {
  $header = $1;
}