if(eval("\$str =~ s/(.{\$len}[^&#?(\w{2,7});|\\xeb|\\x(\w{2})|\\\\x(\w{2})|\\(\w{2,7})|\\'|\\\'|\'|\\\"|\\\"|\\\"|\\\\|\w{5}|[a-z]|<(.*)>|<\/?.*>])/\$1<wbr>/mgi;"))
        {
                #ok
        }