IntroduirU.pl
#!/usr/bin/perl
use strict;

while (<STDIN>) {
    if ($_ =~ /^>/){
        print $_;
    }
    else {
        $_ =~ s/\*/X/g;
        print $_;
    }
}