perl 文字コード

全角カナの大文字だけ許可したかったので正規表現を作った。

use Jcode;

my $hoge = Jcode->new("カナ")->euc;

my $zkatakana_omozi = '(?:\xA5[\xA2\xA4\xA6\xA8\xAA-\xC2\xC4-\xE2\xE4\xE6\xE8-\xED\xEF\xF2-\xF4])';

if( $hoge =~ /^($zkatakana_omozi)+$/ ) {
  warn "ok";
}

下記のサイト様にお世話になりました。

http://www.din.or.jp/~ohzaki/perl.htm#Character
http://ash.jp/code/codetbl2.htm

量指定子がうまくいかん