correction de bug, modifs de feature

unefede.pl

@@ -61,8 +61,8 @@ my %regex = (
     "sdn"          => "\\b(s(all|dn)|Savoie|Haute[- ]Savoie)",
     "teleragno"    => "\\b(mars|telerag|telegrano)",
     "tetaneutral"  => "\\b(t(eta|tn|nn)|Toulouse|Comminges|(Haute[- ]Garon?ne))",
-    "ail"          => "\\bail/",
-    "chaul"        => "\\b(c(haul|hz)|hertz|tarn|autan)",
+    "ail"          => "\\ba(il|utan)",
+    "chaul"        => "\\b(c(haul|hz)|hertz|tarn)",
     "igwan"        => "\\b(ig[wn]|sbg|saint[- ]barth)",
     "neutrinet"    => "\\b(neutri|n[tre]n|belgique)",
     "ffdn"         => "\\bf(ede|fdn|rance|édé)",
@@ -437,11 +437,7 @@ sub said {
 
     # on assiste ceux qui ont alzheimer :p
     elsif ($message->{"body"} =~ /^symbol/) {
-	return "Les symboles sont : pour UnRouteur : > ; pour [ffdn] : ! ; pour moi-même : $symbol";
-    }
-    # on rale sur les gens qui utilisent l'ancien bot
-    elsif ($message->{body} =~ /^\!/) {
-        return "meh";
+	return "Les symboles sont : pour UnRouteur : > ; pour moi-même : $symbol";
     }
     # easter egg
     elsif ($message->{body} =~ /datafoin/) {