#!/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