$g = "m"; $q = "singular"; if ($word =~ /en$/) { $g = "f"; $q = "plural" if ($word =~ /inen$/); }