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"