use strict;
use warnings;
use utf8;
use feature qw/say/;

binmode *STDIN, qq[:encoding(UTF-8)] ;
binmode *STDOUT, qq[:encoding(UTF-8)] ;

while(<DATA>){
    chomp;
    for my $char (split // ) {
        say $char if $char =~ m/\p{Han}/  ;
    }
}

__DATA__
我愛♥123αあい国ㄅㄆ叶龘
08帥哥啦