정규식에서 한글을 포함한 문자열을 찾을때 어떻게 해야 하나요?

use utf8;  # 소스코드 내에 UTF-8 스트링 사용
binmode STDOUT, ":encoding(cp949)";   # 명령 프롬프트 창이 cp949라서 출력을 컨버트
 
my $str = q|
@ini 날씨 환율 운세 문자 TV편성표 @곰돌이
생활더위 꺾인다.. @bumworld 하루종일 흐릴 듯
|;
 
while ( $str =~ /\@(\w*)\b/g ) {
    print "match = [$&]\n";
    print "id    = [$1]\n";
}

match = [@ini]
id    = [ini]
match = [@곰돌이]
id    = [곰돌이]
match = [@bumworld]
id    = [bumworld]