You can considerably reduce the size of this by typing:

if($sorted_values=~/([abcdefghijklm]{2})/){

# Rest of code here

}
[download]

instead of the following:

    if (   $sorted_values =~ m/a{2}/
        or $sorted_values = ~m/b{2}/
        or $sorted_values = ~m/c{2}/
        or $sorted_values = ~m/d{2}/
        or $sorted_values = ~m/e{2}/
        or $sorted_values = ~m/f{2}/
        or $sorted_values = ~m/g{2}/
        or $sorted_values = ~m/h{2}/
        or $sorted_values = ~m/i{2}/
        or $sorted_values = ~m/j{2}/
        or $sorted_values = ~m/k{2}/
        or $sorted_values = ~m/l{2}/
        or $sorted_values = ~m/k{2}/)
    {
[download]

Also, at the top of the program, I would put the my statements for the player hands into two lines instead of ten:

my (@p2_hand,@p3_hand,@p4_hand,@p5_hand);
my (@p6_hand,@p7_hand,@p8_hand,@p9_hand,@p10_hand);
[download]

The last is merely a matter of programming style, but should help in reducing overall clutter

UPDATE:kschwab's regex actually works, mine breaks as he mentions.

TStanley
--------
It is God's job to forgive Osama Bin Laden. It is our job to arrange the meeting -- General Norman Schwartzkopf