if ($hoge =~ /^([a-d])$/) {}