I probably would have used something simpler such as:

while (<DATA>) {
   chomp;
   print "'$_' contains ", (@{[/ /g]}) > 1 ?
      "more than one space.\n" :
      "either one space or none.\n";
}

__DATA__
foo bar baz
foobar
foobar baz
foo barbaz
[download]