my %data = ();
while ($line =~ /(TITLE|DATA-[ABC])#([^#]*)#/g) {
  $data{$1} = $2;
  handle_data($data{TITLE}, $data{DATA-A}, $data{DATA-B},
              $data{DATA-C}) if $1 eq 'DATA-C';
}