for ("Hello", "   ", " x "  ) {
   print /\S/ ? "'$_': Fail\n" : "'$_': Pass\n";
}