$KCODE="SJIS"
dat=["Alpha","ひらがな","漢字","カタカナ"]

dat.each{ |str|
p str
case str
when /^[あ-ん]+/s
p "ひらがな"
when /^[ア-ン]+/s
p "カタカナ"
when /^[亜-煕]+/s
p "漢字"
else
p 'それ以外の何か'
end
}