Select Code to Download

use strict;
use warnings;
...
  print $result, "\n";

}

use 5.010;
use strict;
...
    escape   => qr/^ \s* q (?: uit )? /ix,    # q or quit, case insens
+itively.
  );
}

$ ./diceroll.pl
Enter a dice roll ("q" to quit):  [1d6] 
...

Enter a dice roll ("q" to quit):  [1d6] q