added operator %

rpn

@@ -10,7 +10,7 @@ my $stack_color = 'blue';
 print color $input_color;
 while (<>) {
     for (split) {
-	if (m{^[-+*/]|\*\*$}) {
+	if (m{^[-+*/%]|\*\*$}) {
 	    my $y = pop @stack;
 	    my $x = pop @stack;
 	    my $z = eval "$x $_ $y";