16.4 正则表达式函数（Perl风格）