Its very very easy, get the raw binary data, and Data::Dump::dd-er it

Then do the same thing to "Köhler" as you encode it to all available Encode->encodings(q{:all})

When you two ddumperings that match, you've found your encoding, you're an Encode::Detectiv.....