Авто-определитель кодировки

Всегда найдется, попробуй этот перл:

# 0 - win
# 1 - koi
sub detect_encoding
{
  my @str = unpack "C*", shift;
  my $win = 0;
  my $koi = 0;
 
  for($i=0; $i<@str; $i++)
  {
    if($str[$i] > 224 && $str[$i] < 255) {$win++;}
    if($str[$i] > 192 && $str[$i] < 223) {$koi++;}
  }
 
  return $win < $koi ? 1 : 0;
}

enca http://trific.ath.cx/software/enca/