my $data =~ s@</code>@@gs;



##</code><code>##


  my $data =~ s@<c>

##</code><code>##


  my $data =~ s@</code>@@gs;



##</code><code>##


  my $data =~ s@</code>@@gs;
  my $data =~ s@