+if ($Request and $Request =~ m{\A([^/]+)}) {
+ my $page = "word/$1.plp";
+ utf8::downgrade($page); # unicode filename breaks contents encoding
+ if (-e $page) {
+ Include $page;
+ exit;
+ }
+}
+
+my $lang = $get{lang} || 'en';
+my $wordlist = "data/wordlist.$lang.inc.pl";