$text =~ s/A\/an(\s+)<STRONG>(a|e|i|o|u)/An$1<STRONG>$2/g;