keedi/unicode-match.pl

## 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;
	}