while (<DATA>) {
    print qq("$_" ),
          tr/ // <= 1 ? "has 1 or no spaces\n"
                      : "has more than one space\n";
}