[問題] 字數統計

[muchmoa (快給我簽證!!!!)]

因為實驗上的需求最近開始接觸perl，
寫了一個簡單的script來練習(連簡單的都不會orz)，
我在一個文件裡打了8個我是熊，都在同一行，
我想計算總共有多少熊，以下是我的script
use Cwd;
$dir=cwd;
open IFN,"新增文字文件.txt";
while(<IFN>){

@content=split;
foreach $content(@content){
if($content=~/熊/){
$i=$i+1;

}
}}print "$i\n";
close IFN
結果發現他只能一行找一個，也這就是結果是1，
如果分成三行就會是3，
請問各位這是哪裡出問題啊？是split嘛？
謝謝指教

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 70.64.19.29
推 abliou:你的問題前面有喔...爬看看..
→ abliou:975那篇開始..到下面都有一些..
推 muchmoa:謝謝你，試著了解中@@"
推 david220:$content=~/熊/go
→ david220:先去了解regular expression吧
推 muchmoa:d大，$content=~/熊/go是啥意思呢？謝謝