#!/usr/bin/perl

use strict;

my @v;
my $seq;
my $i = 0;

while (<STDIN>) {
	if ($i == 0) {
		print $_;
	}
	if ($i > 0) {

		@v=split(//,$_);
	
		while (<@v>) {
			if ($_ eq "U") {		
				$seq.= "X";
			}		
			else {
				$seq.=$_;
			}
		}
	}
	$i++;
	$seq.="\n";
}

print $seq;
