my $main_re = qr/[^&#?(\w{2,7});|\\xeb|\\x(\w{2})|\\\\x(\w{2})|\\(\w{2,7})|\\'|\\\'|\'|\\"|\\"|\\"|\\\\|\w{5}|a-z|<(.*)>|<\/?.*>]/