$name !~ m/^[ぁ-ヶ]+$/
で何とかなるかと思いましたが。うまく動いてくれませんでした。

皆様、色々とご教示有難うございました。