#!/usr/bin/perl

while ($p = <>) {
	chomp($p);
	$r = '';
	$p =~ s/-/ /g;
	my $c = 0;
	foreach $i (split(/\s+/, $p)) {
		if ($c > 0) {
			$i =~ s/^(.)/uc($1)/e;
		}
		$r .= $i;
		$c++;
	}
	print "'$r',\n";
}