#!/usr/bin/perl

use strict;

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

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