binmode STDOUT, ':encoding(UTF-8)';
print $str =~ /([^\0-\177]+)/g, "\n";