while (<FILEDATA>)
          {
          $match = <FILEDATA>;
          if ($match =~ /^TTITLE(\d+)=(.+)$/) { $title{$1} = $2; }
          }