perl转移字符
转义字符\Q有什么用啊？看书上的解释看不明白

[解决办法]
就是把其后的每个非ascii字母非数字非 '_ '的字符前插入一个 '\ ' 一直遇到\E为止.
支持嵌套