ファイルを読み込んで、各行の空白で区切った個数を調べたいと思っています。
----test.txt-----
ABC DEF GHI
ABCDEFGHI JKL
AB CD EF GH
-----------------
だと
3
2
4
と表示したいのです。

私が作ってみたのが
open(IN,"test.txt");
@data = <IN>;
my @kazu = split(/\s/,$_);
print scalar @kazu
close(IN);
なのですが上手く動きません。

上記動作をするにはどうすればよろしいでしょうか？
お教え願えないでしょうか。