#!/usr/bin/perl

# copyleft 2009-07-23 sugiura@nagoya-u.jp
# chklist.pl で、ファイル

while(<>){
chomp;                             # 改行コードをとる
@words = split(/ /,$_);       # スペースを境に単語を配列に入れる
}

foreach (@words){
s/W//g; # アルファベット以外は消す
}
@sortedwords = sort(@words); # 配列内の並べ替え
@sortedwords = grep {!$count{$_}++} @sortedwords; #配列内の重複をなくす定石
foreach (@sortedwords){ # 一覧表で出力
print;
print “n”;
}