I took a look on the CPAN at Games::Dice::Die, and then at Games::Dice. It seemed like Games::Dice had many more features. So, I took a look at the code, and realized it was easy to add the support that you wanted. I only needed to slightly change the regex and 2 lines of code! 

--- Games/Dice.pm.old    2004-12-17 14:17:54.172707400 -0500
+++ Games/Dice.pm.new    2004-12-17 15:56:22.599186000 -0500
@@ -19,7 +19,7 @@
 
 
 sub roll ($) {
-    my($line, $dice_string, $sign, $offset, $sum, @throws, @result);
+    my($line, $dice_string, @throws);
 
     $line = shift;
 
@@ -34,38 +34,29 @@
                       %         # a percent sign for d% = d100
                    )
                  )
-                 (?:            # grouping-only parens
-                   ([-+xX*/bB]) # a + - * / b(est) in $2
-                   (\d+)        # an offset in $3
-                 )?             # both of those last are optional
+                 ((?:           # capture
+                   [-+xX*/bB]   # a modifier
+                   \d+          # a, number
+                 )*)            # capture
               }x;               # whitespace allowed
 
-    $dice_string = $1;
-    $sign        = $2 || '';
-    $offset      = $3 || 0;
+    @throws = roll_array( $1 );
+    return unless @throws;
 
-    $sign        = lc $sign;
-
-    @throws = roll_array( $dice_string );
-    return undef unless @throws;
-
-    if( $sign eq 'b' ) {
+    my $mod = $2;
+    if( my($offset) = ($mod =~ /[bB](\d+)/) ) {
         $offset = 0       if $offset < 0;
         $offset = @throws if $offset > @throws;
 
         @throws = sort { $b <=> $a } @throws;   # sort numerically, d
+escending
-        @result = @throws[ 0 .. $offset-1 ];    # pick off the $offse
+t first ones
-    } else {
-        @result = @throws;
+        @throws = @throws[ 0 .. $offset-1 ];    # pick off the $offse
+t first ones
+        $mod = '';
     }
 
-    $sum = 0;
-    $sum += $_ foreach @result;
-    $sum += $offset if  $sign eq '+';
-    $sum -= $offset if  $sign eq '-';
-    $sum *= $offset if ($sign eq '*' || $sign eq 'x');
-    do { $sum /= $offset; $sum = int $sum; } if $sign eq '/';
-
+    my $sum = 0;
+    $sum += $_ foreach @throws;
+    (my $expr = $mod) =~ tr/Xx/**/;
+    $sum = int eval "$sum $expr" if $expr;
     return $sum;
 }

[download]

Update: Looking at this node again, I realized that the patch would break the b syntax, and so I, uh, fixed that. I also trimmed the original author's code a bit.

In reply to Re^4: D20 dice throw parser by jryan
in thread D20 dice throw parser by Luca Benini

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.