Help for this page
print $result, "\n";
escape => qr/^ \s* q (?: uit )? /ix, # q or quit, case insens
Enter a dice roll ("q" to quit): [1d6]
Enter a dice roll ("q" to quit): [1d6] q
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (458 votes). Check out past polls.