首先 , $_ 是 perl 中一个来自回圈的预设变数, 如 :
@array = ( 1,2,3,4,5 );
for ( @array ) { print $_ } # 这时就会打印出 12345
然後到 =~ , 就像 $x == $y ( 对比数字 ) , $a eq $b ( 对比文字 )
而 =~ 就是对比文字匹配了
最後就到 /..... / 之间的, 那是 "正则表达式" 的部份, 那是另一个课题了
而这句, 就是说,
"如果当前数组的元素, 是以 @ 开头的话, 那麼就开始做 { .... } "