Help for this page

Select Code to Download


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