for my $string ( "< Á>", "< Á\x{0100}>" ) {
  print "Has ", $string =~ /\s/ ? 'a' : 'no', " space.\n";
}