#!/usr/bin/perl

use locale;

binmode(STDOUT, ":utf8");
binmode(STDIN, ":utf8");

while (defined($line = <STDIN>))
{
	next if ( ! $line ) ;

	$line =~ s/(\w+)/\u\L$1/g;

	$line =~ s/ (De|Din|Spre) / \L$1 /g;

	print $line ;

}