Senín ( con n )

… Es lo que tiene usar tildes, que normalmente no se tiene encuenta de primeras a los lenguajes que no sean sajones.

Por ejemplo si queremos hacer poner la primera letra en mayúsculas de ‘PRUEBA ESTA OPCIÓN’: lo haríamos pasando a minusculas con lc() todo y luego la primera a mayusculas con ucfirst();

#!/usr/bin/perl
$texto='PRUEBA ESTA OPCIÓN';
print ucfirst(lc($texto));

El resultado es: Prueba esta opciÓn

eso es un asco… asi que lo que hacer es usar los locale así:

#!/usr/bin/perl
use locale;
$texto='PRUEBA ESTA OPCIÓN';
print ucfirst(lc($texto));

y el resultado ahora sí es: Prueba esta opción