Disregard my last answer. I missed the word "without".

Adding to the Encode::Guess recommendation, you can try this yet unfinished script for guessing encodings. The approach here is different: you specify the set of characters you expect as unicode codepoints (the script uses ASCII + special German characters) and optionally a set of encodings to guess from. The output is a list of possibly matching encodings with the probability.