my $data=   '(?: [^<>&]+ | &\#?\w+; )+';

##</code><code>##

my $data=   '(?: [^<&]+ | &\#?\w+; )+';