my $sp_str = "[\\s".chr(160)."]";
my $sp = qr/$sp_str/;

my $str = " ".chr(160)." ";
print "Happy\n" if $str =~ /^$sp*$/;