Perl 펄] 한글 문자열 1글자씩 처리, 유니코드(UTF-8) 배열로 변환; Unicode String to Array

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

use utf8;

  open OUT, ">:encoding(UTF-8)", "out.txt" or die "$!\n";


  ####################################################
  ## 유니코드 한글 문자열을 배열로 변환
  #
  my $s = "똠방각하"; # 문자열 정의

  # 한글 문자열을 1글자씩 분해하여 배열로 만들기
  my @array = unpack "U*", $s;

  # 배열 내용을 파일에 출력 (1글자씩 나옴)
  print OUT chr($_), "-" foreach (@array);



  print OUT "\n\n"; # 줄바꿈



  ####################################################
  ## 배열을 문자열로 변환
  #
  my $result = pack "U*", @array;

  # 문자열을 파일에 출력
  print OUT $result, "\n";