NAME Lingua::PT::Capitalizer - Simple text capitalize. VERSION version 0.001 SYNOPSIS Procedural Interface use Lingua::PT::Capitalizer; my $text = q(ESCRITOR, JORNALISTA, CONTISTA E POETA JOAQUIM MARIA MACHADO DE ASSIS); say capitalize($text); # Output: # Escritor, Jornalista, Contista e Poeta Joaquim Maria Machado de Assis $text = q(comprehensive perl archive network (CPAN)); say capitalize($text, 1); # Output: # Comprehensive Perl Archive Network (CPAN) OO Interface use Lingua::PT::Capitalizer (); my $capitalizer = Lingua::PT::Capitalizer->new(); my $text = q(ESCRITOR, JORNALISTA, CONTISTA E POETA JOAQUIM MARIA MACHADO DE ASSIS); say $capitalizer->capitalize($text); # Output: # Escritor, Jornalista, Contista e Poeta Joaquim Maria Machado de Assis $text = q(comprehensive perl archive network (CPAN)); say $capitalizer->capitalize($text, 1); # Output: # Comprehensive Perl Archive Network (CPAN) DESCRIPTION This module format strings in title-case mode using common typographic rules for proper names in Portuguese Language. SUBROUTINES/METHODS capitalize Receive one or two arguments and return a capitalized string. If the second argument is 1, the upper case words won't be affected. lc_always A data structure with some articles and prepositions that normaly stay in lower case. EXAMPLES Using files as input If text.txt is a file with names/titles to capitalize, the easiest way to capitalize all is: perl -MLingua::PT::Capitalizer -wpE'$_=capitalize' text.txt Getting lc_always hash # Procedural Interface my %lc_always = %{Lingua::PT::Capitalizer::lc_always} # OO Interface my %lc_always = $capitalizer->{lc_always} AUTHOR Ronaldo Ferreira de Lima aka jimmy . SEE ALSO Text::Capitalize.