Help for this page
open IN, '<:encoding(UTF-8)', "WE_EX.txt" open OUT, '>:encoding(UTF-8)', "WE_EX.out"
while (<IN>) {
use strict; use warnings; ... close $IN; close $OUT;