#!/usr/local/bin/perl
use strict;
use warnings;

use utf8; #プログラムがUTF-8を使って記述されていることを宣言

use open ":utf8";

# UTF-8でファイルを読み込む。
open (IN, "<", "Utf_8.txt") or die "$!";
my @list0 = <IN>;
close(IN);

# UTF-8てファイルに記録する。
open (OUT, ">", "Utf_8_new.txt") or die "$!";

 foreach my $tmp0 (@list0) {
   print OUT "$tmp0"; }
 print OUT "再度UTF-8で記述された。\n";
close(OUT);