--- modules/damieng/clean_xml/post_xml.pm	2015/04/17 15:35:01	1.1
+++ modules/damieng/clean_xml/post_xml.pm	2015/04/27 18:04:40	1.2
@@ -350,6 +350,12 @@ sub replace_m {
             push(@variables, $1);
           }
         }
+        # this regexp is for "  @a = ..."
+        while ($text =~ /^[ \t]*\@([a-zA-Z_0-9]+)[ \t]*=/gm) {
+          if (!string_in_array(\@variables, $1)) {
+            push(@variables, $1);
+          }
+        }
         # this regexp is for "  ($a, $b, $c) = ..."
         my @matches = ($text =~ /^[ \t]*\([ \t]*\$([a-zA-Z_0-9]+)(?:[ \t]*,[ \t]*\$([a-zA-Z_0-9]+))*[ \t]*\)[ \t]*=/gm);
         foreach my $match (@matches) {