Select Code to Download

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"

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
        }