$latin = "\xa0";               # nbsp
$unicode= $latin . pack 'U0';  # convert to UTF-8

print "Latin 1: ", $latin =~  /\s/ ? "yes":"no", "\n";
print "Unicode: ", $unicode =~/\s/ ? "yes":"no", "\n";