Select Code to Download

$sentence =~ /([A-Z\N{LATIN CAPITAL LETTER A WITH RING ABOVE}\N{LATIN 
+CAPITAL LETTER A WITH DIAERESIS}\N{LATIN CAPITAL LETTER O WITH DIAERE
+SIS}\N{LATIN CAPITAL LETTER E WITH ACUTE}]+)/ig)

my $word = ucfirst(lc($word));