在Perl中仅匹配一次