while (<>) {
  $amount = $_;
  if ($. > 1) {
    die "Too much input!\n";
  }
}

$_ = uc $amount;
@words = split;
print join("*", @words);
print "\n";