Rock paper scissors game

rps.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use constant SYM => qw(rock scissors paper);

my $msg = "Enter 0 for rock, 1 for scissors, 2 for paper, or enter 'quit' to exit\n";

for (print $msg; my $player = <STDIN>; print $msg) {

	chomp $player;

	last if $player =~ /^quit$/i;
	next if $player !~ /^(0|1|2)$/;

	my $computer = int rand (SYM);

	print "Player: ", (SYM)[$player], " Computer: ", (SYM)[$computer], "\n";

	if ($player == $computer) {
		print "Result is a draw!\n";
	} else {
		if (($player + 1) % (SYM) == $computer) {
			print((SYM)[$player], " beats ", (SYM)[$computer], ", you won!\n");
		} else {
			print((SYM)[$computer], " beats ", (SYM)[$player], ", I won (^:\n");
		}
	}
}