if (($name) = $line =~ /^\s*-\s+(.+?)\s*\|/)
   {   
      print "$name\n" unless $name =~ /\d/; 
   }