#!
# Simply read Greek file (WE_EX.txt) saved in 
#   UNICODE (UTF-8) format and
#   write it to output file (WE_EX.out)
#
use strict;
use warnings;
#
open IN, '<:encoding(UTF-8)', "WE_EX.txt"
	or die "Can't open file WE_EX.txt for reading: $!";
#
open OUT, ">WE_EX.out"
	or die "Can't open file WE_EX.out for writing: $!";
#
#
my @string;
while (<>) {
	push @string, $_;
}
print OUT "@string";
close IN;
close OUT;