keedi · April 19, 2010 17:34
diff --git a/unicode-match.pl b/unicode-match.pl
 #!/usr/bin/perl

 use common::sense;
 use Encode;

 while (<>) {
    $_ = decode('utf-8', $_);
    my @found = m/[ㄱ-힣]+/g;
    say "[$_]" for @found;
 }
	#!/usr/bin/perl

	use common::sense;
	use Encode;

	while (<>) {
	$_ = decode('utf-8', $_);
	my @found = m/[ㄱ-힣]+/g;
	say "[$_]" for @found;
	}