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