10.4 Perl兼容正则表达式函数