sub CutString {
      my $string = shift;
      my $len = shift;
      my $cut = 0;

      while($len != 0) {
              if( ord(substr($string, $cut, 1) ) >= 128 ) {
                      $cut += 2; #korean char & 
              }
              else {
                      $cut++;
              }
              $len--;
              last if ($len == 0);
      }
      return substr($string, 0, $cut);
}
Àü ¼Ò½º¸¦ º¸¸é ¿ÏÀüÀÌÇظ¦ ÇؾßÁö ÁＺÀÌ Ç®¸®°Åµç¿ä --;

¾Æ¹«¸® ã¾ÆºÁµµ ¹«½¼¶æÀÎÁÙ ¸ô°Î³»¿ä..

¶Ç last if ¶õ°ÍÀº Á¦°¡ °¡Áö°í Àִ å¿¡µµ ÀÖ¶²´ë. ¼³¸íÀº ¾ø°í..

Á¦°¡ ¸¸µÎ´Â °Ô½ÃÆÇ¿¡ ÇѱÛÀ߸£±âÆÁÀ» ½áº¼¶ó±¸¿ë...

¾Ë·ÁÁÖ¼¼¿ë.. ³ª´Â °ú¿¬ À¥ÇÁ·Î±×·¡¸Ó°¡ µÉ¼ö ÀÖÀ»±î?

¤Ì.¤Ì.. ¾ÆÂü ±×¸®°í ½ÇÀü ¿¹Á¦°¡ ¸¹Àº µµ¼­Á» ÃßõÁ» ÇØÁֽǷ¡¿ä?

¾ÆÂü ¼³¸íµµ ÁÙÁÙÀÌ Àß ´Þ·Á ÀÖ°í --; ºÎŹµå¸³´Ï´Ù.