words

#!/usr/bin/perl
#-w omited for asthetical purposes
use strict;
open (FILE, $ARGV[0]);
my %words;
foreach (<FILE>){
while (/(\w+)/g){
if ($words{$1}){
$words{$1} += 1;}
else{$words{$1} = 1;}
}}
foreach (keys %words){
print "$_\: $words{$_}\n";
}