DouKaku?

#!/usr/bin/perl

($_ = shift) =~ tr /A2-9TJQK/a-m/;
$rank = join('', sort(split /[SCDH]/));
$flag = (/^(.).((\1).){4}/) * 4 + ($rank eq "ajklm") * 2 + ("abcdefghijklm" =~ /$rank/);

die "Royal flush\n"     if ($flag == 6);
die "Straight flush\n"  if ($flag == 5);
die "Flush\n"           if ($flag == 4);
die "Straight\n"        if ($flag);
die "Four of a kind\n"  if ($rank =~ /(.)\1{3}/);
die "Full house\n"      if ($rank =~ /((.)\2\2(.)\3)|((.)\5(.)\6\6)/);
die "Three of a kind\n" if ($rank =~ /(.)\1\1/);
die "Two pair\n"        if ($rank =~ /(.)\1.?(.)\2/);
die "One pair\n"        if ($rank =~ /(.)\1/);
die "No pair\n";