Text::Capitalize is a Perl to capitalize strings ("to WORK AS titles" becomes "To Work as Titles").
SYNOPSIS
use Text::Capitalize;
print capitalize("...and justice for all"), "n";
...And Justice For All
print capitalize_title("...and justice for all"), "n";
...And Justice for All
print capitalize_title("agent of SFPUG", PRESERVE_ALLCAPS=>1 ), "n";
Agent of SFPUG
print capitalize_title("the ring: symbol or cliche?", PRESERVE_WHITESPACE=>1 ), "n";
The Ring: Symbol or Cliche?
(Note, double-space after colon is still there.)
# To work on international characters, may need to set locale to something appropriate
use Env qw(LANG);
$LANG = "en_US";
print capitalize_title("�ber maus"), "n";
�ber Maus
use Text::Capitalize qw(scramble_case);
print scramble_case('It depends on what you mean by "mean"');
It dEpenDS On wHAT YOu mEan by "meAn".
Product's homepage
Requirements:
· Perl