Reading each word in a file and counting no of words using perl script

open(FILE,"/etc/passwd");
while($line=<FILE>)
{
@s=split(":",$line);
$r++;
push(@e,@s);
}
foreach $i (@e)
{
print $i."\n";
$w++;
}
print "no of words: $w.\n";
print "No of lines: $r.\n";
close(FILE);