my %words =();
map { chomp; if (/([^:]+):[\s]+(.*)/) { $words{$1} = $2;} }<>;