add some localizations

titlecase

@@ -1,8 +1,20 @@
 #!/usr/bin/perl
 use 5.008001; use strict; use warnings; use utf8;
 
-our @SMALL_WORD
+# Added localizations to https://github.com/ap/titlecase
+our @SMALL_WORD_EN
 	= qw/ (?<!q&)a an and as at(?!&t) but by en for if in of on or the to v[.]? via vs[.]? /;
+our @SMALL_WORD_DE
+   = qw/ der das die dem den des ein eine einem einen einer eines und oder aber als bei mit nach von vom zu in im ins aus auf aufs für mit bis über übers überm übern unter unterm untern unters vor vorm vorn vors zum zur durch durchs ohne gegen um an am ans /;
+our @SMALL_WORD_PT
+   = qw/ a as o os um uma uns umas à às ao aos como da das de do dos e na nas no nospelo pela pelos pelas em com sem até após como ante por para sob sobre per entre/;
+our @SMALL_WORD_ES
+    = qw/ el la las los un una unos unas y e o u ni a as os de del al en con por para sobre entre sin hacia tras bajo ante tras hasta según desde durante mediante según /;
+our @SMALL_WORD_FR
+    = qw/ le la les un une à au aux avec chez dans de des du en et pour par sur vers sous sans hors près lors dès via contre/;
+our @SMALL_WORD_IT
+    = qw/ la il l' lo le i gli uno una a al all' alla alle da dal dall' dagli dalli dalle delle dei degli del di in nel nell' nelle nei negli per su con tra fra senza sotto dopo verso /;
+our @SMALL_WORD = ( @SMALL_WORD_EN, @SMALL_WORD_PT, @SMALL_WORD_DE, @SMALL_WORD_ES, @SMALL_WORD_FR, @SMALL_WORD_IT );
 
 my $apos = q/ (?: ['’] [[:lower:]]* )? /;