$theName =~ s/\bt(i|y)(f+|ph)(a|i)n(e+|y)?\b/Tiffani/i

Regular expressions are always so appealing. But, I'm off to physics now, and to deal with everything else for the rest of the day. Ciao.