Chessa::Bug: smarter project/issue extraction

scripts/Chessa/Bug.pm

@@ -125,7 +125,8 @@ sub parse {
                 next;
             }
         }
-        ($project, $num) = split /$sigil/, $word;
+        $word =~ /^(.*?)$sigil(.*?)\b/;
+        ($project, $num) = ($1, $2);
 
         if (!length($project)) {
             unless ($type eq 'snippets') {