use Encode::Guess;
die "guessing encoding ",
    guess_encoding($content, 
    Encode->encodings(":all")
);