Select Code to Download

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

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