my $contents = do {local $/; <$input>};
    my $name = qr/\s* [^=\s]+ \s*/x;
    while ($contents =~ /^ ($name) = \s* (.+) (?= ^ $name = | $ ) /msgx)
    {
      # name is in $1, value is in $2
    }