Select Code to Download

while (<FILEDATA>) {
  /$TTITLE(\d+)=(.+)$/ and print "$1-$2\n";
}

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

## Then just:
print @titles;