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