use strict;
use warnings;

while(1) {

  print "Enter a dice to roll ('q' to quit): ";
  my $input = <STDIN>;

  last if $input =~ m/^q/;

  my( $rolls, $die ) = $input =~ m/(\d+)d(\d+)/i;

  my $result = 0;
  $result += 1 + int rand $die for 1 .. $rolls;

  print $result, "\n";

}