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