#!/usr/bin/perl
$/ = ""; #unité de travail le paragraphe
$* = 1; #plusieurs lignes ŕ la fois
while (<>){
s/-\n//g; #enlever les tirets
tr/A-Z/a-z/; #minusculiser
@words = split (/\W*\s+\W*/,$_);
foreach $word (@words) {
$wordcount{$word}++;
}
}
foreach $word (sort keys (%wordcount)) {
printf "%20s,%d\n",$word,$wordcount{$word};
}