Should this regex include whitespace?

while (<INPUT>) {
  next if (1 .. /^\s*$/); 

  # yada yada
}
[download]

Also, your example reminds me of some kind of tutorial or perldoc reference -- is that right? If so, could you point me to it? This is a slick construction.