$ STRING = uc ($ STRING);
Perl lui uc () funcția ia un șir, face întreaga chestie cu majuscule și apoi returnează noul șir.
$ myWord = 'cuvânt'; $ myUpperWord = uc ($ myWord);
Primul, $ numita cuvant este setat la o valoare de 'cuvânt', apoi uc () funcția este activată $ numita cuvant. uc () funcția preia întregul șir $ numita cuvant și îl convertește în echivalentul lui mai mare. Valoarea a $ myUpperWord este apoi egal cu 'CUVÂNT.'