#!/usr/bin/perl -w
use strict;
use utf8;
my $text;
open(FILE,"<unicode8.txt");
open(OUTPUT,">text.txt");
binmode FILE,":utf8";
binmode OUTPUT,":utf8";
binmode STDOUT,":utf8";
while(<FILE>){print OUTPUT $_; $text .=$_}
close FILE;
close OUTPUT;