>>571
http://www.din.or.jp/~ohzaki/perl.htm#Character
↑の EUC-JP 文字を使ってこんな感じとか？

my @euc_chars = $euc_text =~ /${character}/g;