fix regisering users

Author: arroway

lib/App/LolBot/Bot.pm

@@ -142,7 +142,7 @@ sub run {
 
         my  $msg = $args[1];
         my $user_nick = "";
-        if ($prefix =~ m/:([a-zA-Z0-9%~\[\]\(\).<>&\@\_-\:+]+)!/){
+        if ($prefix =~ m/:([a-zA-Z0-9%~\[\]\(\).<>&@_-\:+]+)!/){
           $user_nick = $1;
         }