#!/usr/local/bin/perl
#
%word=();
$filename=$ARGV[0];
##  print "$filename\n";
open (DATAFILE, "<$filename")|| die "Not opened";
open (OUTPUT, ">output.txt")|| die "Not opened";
$lineno=0;
while (<DATAFILE>){
  chomp;
  $lineno++;
  print OUTPUT "$lineno: $_\n";
  $input=$_;
  while ($input ne ""){
    $input=~/(\W*)(\w*)/;
    $delim=$1;
    $var=$2;
    $var=~tr/A-Z/a-z/;
    ## print "$var  ";
    if ($var ne ""){
       $word{$var}++;
    }
    $input=~s/(\W*)(\w*)//;
    ##  print "$input\n"; <STDIN>;
  }
  ## print "\n";
}
close (DATAFILE);
foreach (sort keys %word){
  print OUTPUT "$_  $word{$_}\n";
}
close (OUTPUT);
exit;