[패턴] euc-kr의 패턴 매칭 예제 2

use Encode qw/encode decode/;

my $utf8   = decode("euc-kr", $content);
my $cnt = 0;

# utf-8 로 format이 변경되면 [\w]에서 인식 가능한 상태가 됨
while ($utf8 =~ /_OBJ_GRID.setTextOnly\(\"([\w]+)\", ([\w]+), \"([\w\(\)\-]+)\"\);/g) {
    # 한글을 화면으로 보려면 다시 euc-kr로 변경해야 한다
    my $val = encode("euc-kr", $3);
    print $val . "\n";
    $cnt++;
}