while (<>)
{
   if (not /^\s*\#/ and
       not /^\s*$/)
   {
      do_the_work($_);
   }
}