$ perl -le'print "\x{00A0}" =~ /[^\S \n]/ ?1:0;'
0  # Bug kept for backwards compatibility

$ perl -E'say "\x{00A0}" =~ /[^\S \n]/ ?1:0;'
1

$ perl -le'print "\N{U+00A0}" =~ /[^\S \n]/ ?1:0;'
1

$ perl -le'print "\x{2660}\x{00A0}" =~ /[^\S \n]/ ?1:0;'
1