#! /usr/bin/perl

# word frequency count

while(<>) {                              # iterate over lines in named file
    tr/A-Za-z/ /cs;                      # remove punctuation
    foreach $word (split(' ', lc $_)) {  # each word in line, lc is lowercase
	$freq{$word}++;                  # increment frequency count for word
    }
}

foreach $word (sort keys %freq) {        # sort words found
    print "$word $freq{$word}\n";        # print word with its frequency
}