对$obj进行正则表达式匹配，正则表达式是(/myperl/example/.*)$，字符串 以/myperl/example/.*结尾， 把匹配的个数赋值给$tag , m - - 代表模式匹配一般都写成m/ /，可以用很多字符代替/。
