if ($word =~ /-/) { ...