从Perl5.10版本以后，$_开始支持词语域，对它所做的修改只限于当下代码的作用域可见，从外部是无法访问的。

{  my $_; #... 使用自己的$_版本 some_sub(); # 看不到你的$_}

编程风格与$_

while(<>) {  #第一次  foreach (split) { #第二次 第三次   $w5++ if /^w{
   5}$/ ; #第四次  }}#查找以.txt 结尾，并小于5000字节的文字@small_txt = grep {/\.txt$/ and (-s) < 5000 } @files;