Regex en image

lib/commands/parser.pm

@@ -44,6 +44,7 @@ sub exec {
 
     my $re_place_t ="\\ +@\\ +(?<place>[^:]*)";
 
+    # see doc/regex.png for an visualisation of this regex
     if ($msg =~ m=^Sam(?:,|:)                           # hl
             \ +(?<add_user>je\ +(vais|viens)\ +à\ +)?   # add_user
             (?<title>[^@]+)                             # title