$contenido = uc $contenido;
$contenido =~ tr/A-Z/ /cs;