print utf8::is_utf8 ($ string)? 'flagged': 'no flag';
print encode ('utf-8',$string);
print encode ('cp949',$string);