#!/usr/bin/perl -CO
use strict;
use warnings;
use Encode;

use utf8;


my $a = 'ä';
print "UTF8-Flag: ", utf8::is_utf8($a) ? "Yes" : "No";
print "    matches word: ", $a =~ /\w/ ? "Yes\n" : "No\n";

my $b = encode("ISO-8859-1", $a);
print "UTF8-Flag: ", utf8::is_utf8($b) ? "Yes" : "No";
print "    matches word: ", $b =~ /\w/ ? "Yes\n" : "No\n";

use locale;

$a = 'ä';
print "UTF8-Flag: ", utf8::is_utf8($a) ? "Yes" : "No";
print "    matches word: ", $a =~ /\w/ ? "Yes\n" : "No\n";

$b = encode("ISO-8859-1", $a);
print "UTF8-Flag: ", utf8::is_utf8($b) ? "Yes" : "No";
print "    matches word: ", $b =~ /\w/ ? "Yes" : "No";
print "\n";

##</code><code>##

UTF8-Flag: Yes    matches word: Yes
UTF8-Flag: No    matches word: No
UTF8-Flag: Yes    matches word: No
UTF8-Flag: No    matches word: No