my $one = ("_"x9)."*__\n";
my $two = ("-"x15)."\n";
print "$one$two";
substr($one,9)="" if substr($one,9,1) eq "*";
print "$one$two";