$line =~ s/DATA-A#(.*)#/$1/;


##</code><code>##

$line =~ /DATA-A#([^#]*)#/;

##</code><code>##

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';
}