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