さっきのPerlの[あ-ん]のやつ、これでいけたよ　漏れはﾊｶｰだな
my $eucjp = q{
  [\x00-\x7F]
 |\x8E[\xA0-\xDF]
 |\x8F[\xA1-\xFE][\xA1-\xFE]
 |[\xA1-\xFE][\xA1-\xFE]
};