rockpaperscissors.pl

#!/usr/bin/env perl
# This is a short script to play rock paper scissors

use strict;
use warnings;

my @rps = qw(rock paper scissors);
my %weakness = (rock => "paper", paper => "scissors", scissors => "rock");
my $score = 0;
my $npcscore = 0;
print "\nWelcome, how many rounds would you like to play?\nI would like to play best of:";
chomp(my $rounds = <>);

for (my $i=1; $i<=$rounds; $i++) {
    print "\n-------ROUND $i\-----\n";
    GETVALUE: print "Do you pick Rock, Paper or scissors?\nI pick:";
    chomp(my $pick = <>);
    unless($pick =~ /^rock$|^paper$|^scissors$/i){
        print "$pick is not a valid argument\n";
        goto GETVALUE;
    }   
    my $npcpick=$rps[rand(3)];
    if($pick =~ /$npcpick/i){
        print "You both picked $pick";
    }   
    elsif($weakness{lc($pick)} !~ /$npcpick/i){
        $score++;
        print "Enemy picks: $npcpick You win this round! Your score: $score\n";
    }        
    else {
        $npcscore++;
        print "Enemy picks: $npcpick You lose this round! Npc score: $npcscore\n";
    }   
}

if ($score > $npcscore){
    print "\nNpc score: $npcscore Your score: $score\n","-"x5,"YOU ARE VICTORIOUS!","-"x5,"\n";
}
else {
    print "\nNpc score: $npcscore, Your score: $score\n","-"x5,"YOU WERE UTTERLY CRUSHED","-"x5,"\n";
}

Perl version of http://www.practicepython.org/exercise/2014/03/26/08-rock-paper-scissors.html :)

Wow $o cool, give thi$ guy a job at $ilicon valley.