while (<DATA>) {
   my ($key) = /^>?(\S+)/;

   local $/ = '>';
   chomp(my $val = <DATA>);
   $val =~ s/\n//g;

   $hash{$key} = $val;
}