my $z = qr{(?:[A-Z_]+:|$)};
my %hash = map { $_, ($string =~ m/$_:(.+?)\s*$z/)} @keys