Capitalize texto con perl y tildes

… 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();
[shell]
#!/usr/bin/perl
$texto=’PRUEBA ESTA OPCIÓN’;
print ucfirst(lc($texto));
[/shell]

El resultado es: Prueba esta opciÓn

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

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

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