use Encode qw( decode );

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);
}