#!/usr/bin/perl

while($line=<STDIN>)
{
  chomp($line);
  @letter=split //,$line;
  $neu="";
  foreach(@letter)
  {
    if(ord($_)==195)
    {
      $found=1;
      next;
    }
    if($found)
    {
      $_=chr(ord($_)+64);
      $found=0;
    }
    $neu=join "",$neu,$_;
  }
  print "$neu\n";
}
#while($line);