Update text-alias.perl