my %errors =
  ( $data =~ m|<\%def \.errors>.*?(?:(^\w+):(.*?)$)+.*?</\%def>|sgm );