my $string = ' '.chr(160).' ';
if ( $string =~ /^\s*$/ ) {
   print "Happy Happy!";
}