perl -MEncode -E'
   binmode(STDIN);
   binmode(STDOUT, ":encoding(UTF-8)");
   $_ = do { local $/; <STDIN> };
   for my $enc (Encode->encodings(":all")) {
      my $dec = eval {
         decode($enc, $_, Encode::FB_CROAK | Encode::LEAVE_SRC)
      };
      if (defined($dec)) {
         say "$enc: $dec";
      } else {
         print "$enc: Fail: $@";
      }
   }
' < file