#!/usr/bin/perl

use Encode;
use strict; use warnings; # avoid being beaten to death
no warnings "experimental::regex_sets";
my $european_chars_iso8859 = join '', map { chr $_ } (191..207,209..214,216,217..221,223..239,241..246,248..253);
my $european_chars_utf8    = encode_utf8(decode('latin1',$european_chars_iso8859));
my $european_chars = "[$european_chars_iso8859] + [$european_chars_utf8]";
my $valid = "[:print:] + $european_chars";

print "yup\n" if chr(0x82) =~ /^(?[$valid])+$/;
__END__
yup