#!/usr/bin/perl

use strict;

my @v;
my $string;
my $counter = 0;

while (<stdin>)
{
	if ($counter == 0)
	{
		print $_;
	}
	if ($counter > 0)
	{

		@v=split(//,$_);
	
		while (<@v>)
		{
			if ($_ eq "U")
			{		
				$string.= "X";
			}		
			elsif ($_ eq "%" || $_ eq "#" || $_ eq "@")
			{
				$string.= "";
			}
			else
			{
				$string.=$_; #$string=$string.$_
			}
		}
	}
	$counter++;
	$string.="\n";
}

print $string;