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

##</code><code>##

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