$channel_data =~ s@\[@<lftsqbrk/>@g;
      $channel_data =~ s@\]@<rtsqbrk/>@g;
      $channel_data =~ s@\(@<lftbrk/>@g;
      $channel_data =~ s@\)@<rtbrk/>@g;
      $channel_data =~ s@\+@<plus/>@g;
      $channel_data =~ s@\?@<ques/>@g;
      $channel_data =~ s@\&apos;@<apos/>@g;
      $channel_data =~ s@\$@<dollar/>@g;