Scalar found where operator expected at (eval 304) line 1, near"s/(.{$len}[^&#?(w{2,7});|\xeb|\x(w{2})|\\x(w{2})|\(w{2,7})|\'|\'|'|\"|\"|\"|\\|w{5}|[a-z]|<(.*)>|</?.*>])/$1"

##</code><code>##

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
        }