my %errors =
  ( $data =~ m#(?:<\%def \.errors>|\G).*?(?:(^\w+):(.*?)$)(?=.*?</\%de
+f>)#sgm );
[download]

my %errors =
  ( $data =~ m#(?:<\%def \.errors>|(?<=.)\G)(?:(?!</\%def>).)*?(?:(^\w
++):([^\n]*))(?=.*?</\%def>)#sgm );
[download]