my $file;
my $out = 'wordlist.txt';
{
	local $/;
	$file = <>;
}
$file =~ tr/\n / /s;
$file =~ tr/A-Za-z0-9 //dc;

my %wordlist;
$wordlist{$_}++ foreach (split ' ', $file);

open(LIST, ">$out") or die "Can't open $out: $!";
print LIST join("\n", keys %wordlist);
close LIST;
print (scalar keys %wordlist), " words found.  Saved in $out\n";