open(my $infh, ？<:utf8？, ？input.txt？);
open(my $outfh, ？>:utf8？, ？output.txt？);
while(my $line = <$infh>){
　　〜処理〜
　　print $outfh $line;
}
close($outfh);
close($infh);