######################################
      # Parse the blockname
      ######################################
      if ( /^blockname\s+(.*)\s*$/ ) {
         $self->{'blockname'} = "$1";
         next;
      }

      ######################################
      # Parse the list info
      ######################################
      if ( /^list\s+(\d+)\s+(.*)\s*$/ ) {
         $self->{'list'}->{"$1"}->{"$3"} = "$2";
         next;
      }

      ...ETC ETC ETC...