Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    }
}
print "You lost! Pattern was: $pattern\n";

my $right_place =()= "$pattern$guess"=~/(.)(?=...\1)/g;

$right_color += $pattern =~ s/([$guess])/$1/g;
$right_color -= $right_place;