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