#!/usr/bin/perl

#system("egrep -v \"('|-|/|\.)\" da.words.2_tjek | tr 'A-ZÆØÅ' 'a-zæøå' | sort -u > tmp.lang");

open(WORDS,"<tmp.lang");
while (<WORDS>) {
	chomp;
	$w = $_;
	$len = length $w;
	if ($len == 3) {
		print("$w\n");
	}
}