Code

[ggoebel]

my $filename = ...;
local $/;
open IN, $filename;
$text = <IN>;
@words{split /\s+/, $text} = undef;
@words = keys %words;