perl Encode-Detect