Select Code to Download

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

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

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