use Encode::Guess; my $decoder = Encode::Guess->guess($filedata); # default detectable encodings include utf8. return(@err, "Can't guess encoding: $decoder") unless ref($decoder);