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