if ( $something =~ /^[aeiou]/i && $something !~ /(un|uga|ura)/i || $something =~ /hour/i || something =~ /honest/i ) { # First letter of $something is a vowel $print = "an $something"; } else { $print = "a $something"; }