open my $FILE, "<:encoding(UCS-2)", 'TEXTCZ1.txt' or die "Cannot open the TEXTCZ1.txt! \n"; my $content = do { local $/; <$FILE> };