Counting no words in a file (Perl)

open("FILE","sam");
while($line=<FILE>)
{

print $se++."\n" while($line=~m/[\s]+/g);
}