#!/usr/bin/perl

use strict;
use warnings;
use feature qw( say );

use Search::Tools::UTF8 qw( looks_like_cp1252 );

my $text = "\xC9ric";
say looks_like_cp1252($text) ?1:0;   # 0

##</code><code>##

my $txt;
if (is_valid_utf8($text)) {
   $txt = decode('UTF-8', $bytes);
} else {
   $txt = decode('Windows-1252', $bytes);
}

##</code><code>##

my $bytes = '...';
my $txt;
if (!eval {
   $txt = decode('UTF-8', $bytes, Encode::FB_CROAK|Encode::LEAVE_SRC);
   1  # No exception
}) {
   $txt = decode('Windows-1252', $bytes);
}