in reply to Initialize an hash with string

Consider Parse::RecDescent.

In Section Seekers of Perl Wisdom