my $sjis = q{ [\x00-\x7F] |[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC] |[\xA0-\xDF] }; @chars = $text =~ /$sjis/gox;