unicodeにして\p{Hiragana}使ったほうが楽だと思うのだが

decode('euc-jp', $s) =~ /[^\p{Hiragana}]/