Je sais qu'il existe une fonction en perl qui force le caractère suivant en majuscule. Existe-t-il un équivalent en Perl ?