while (<FILEDATA>) {
  /$TTITLE(\d+)=(.+)$/ and push(@titles, "$1=$2\n");
}

## Then just:
print @titles;