It matches newlines at the end of the domain name :-

  print could_be_a_host("www.domain.com\n"); # says 1
[download]

\z instead of $ in the regexps would fix it for recent perls as would a judicously placed chomp - but I'm sure you know this already!