#!/usr/bin/perl

use strict;

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

while (<STDIN>)
{ 
s/\*/X/g;print;
}