为优雅，简洁而使用$_

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

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

编程风格与$_

while(<>) {  #第一次
  foreach (split) { #第二次 第三次
   $w5++ if /^w{5}$/ ; #第四次
  }
}

#查找以.txt 结尾，并小于5000字节的文字
@small_txt = grep {/\.txt$/ and (-s) < 5000 } @files;