perl 문자열 관련 질문드립니다..

#!/usr/bin/perl -w
 
use Encoding;
 
@infile = <*.txt>;
 
foreach $infile (@infile) {
$outfile="$infile.mod";
 
### via PerlIO
open(INPUT, "< :encoding(utf-16)", $infile)
	|| die "Can't open < $infile for reading: $!";
open(OUTPUT, "> :encoding(cp949)", $outfile)
	|| die "Can't open > $output for writing: $!";
while (<INPUT>) { # auto decodes $_
	s/example test/example jj test/g;
	s/ /\n/g;
	print OUTPUT; # auto encodes $_
}
close(INPUT) || die "can't close $infile: $!";
close(OUTPUT) || die "can't close $outfile: $!";
}