if( $line =~ /TITLE/)
{
  $line =~ s/TITLE#(.*)#/$1/;
  chomp($1);
}
else if ( $line =~ /DATA-A/)
{
  $line =~ s/DATA-A#(.*)#/$1/;
  chomp($1);
}