use HTML::Entities qw( decode_entities );

my $ch = decode_entities(' ');

print("Unicode Semantics\n");
print("-----------------\n");
utf8::upgrade($ch);
if ($ch =~ /\s/) {
   print("Match\n");
} else {
   print("No Match\n");
}

print("\n");

print("Byte Semantics\n");
print("--------------\n");
utf8::downgrade($ch);
if ($ch =~ /\s/) {
   print("Match\n");
} else {
   print("No Match\n");
}

##</code><code>##

Unicode Semantics
-----------------
Match

Byte Semantics
--------------
No Match