$article = decode('utf-8', param('select')); Encode::from_to($article, 'utf-8', 'ISO-8859-7') ; open FILE, "<$ENV{'DOCUMENT_ROOT'}/data/text/$article.txt" or die $!; local $/; $data = ; close FILE;