>>242
\Z のZは、小文字でも良いんだっけか？
if ( $a =~ /\A[a-i]\Z/ ) { 〜〜〜 }