#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use Encode;

my $iso8859 = join '', map chr, 191 .. 207,
                                209 .. 214,
                                216,
                                217 .. 221,
                                223 .. 239,
                                241 .. 246,
                                248 .. 253;

my $utf8   = encode('utf8', decode('latin1', join '|', split //, $iso8859));

my $valid  = qr/ ^ (?: [[:print:]$iso8859] | $utf8 ) $ /x;

my $o_uml  = decode('latin1', "\N{LATIN CAPITAL LETTER O WITH DIAERESIS}");
my $o_l1   = encode('latin1', $o_uml);
my $o_utf8 = encode('utf8', $o_uml);

say 'bytes' if $o_uml  =~ /$valid/;
say 'latin' if $o_l1   =~ /$valid/;
say 'utf8'  if $o_utf8 =~ /$valid/;

say 'yup' if "\x82" =~ /$valid/; # chr 130