@l=<F3>;
my $text = '';
for my $line (@l){
    chomp $line;
    my ($part1, $part2) = split /\*/,$line;
    $text .= "$part1 $part2\n";
}

print $text;

##</code><code>##

@l=<F3>;
my $text = join '', @l;
$text =~ s/\*/ /g;
print $text;

##</code><code>##

@l=<F3>;
print map {s/\*/ /;$_;} @l;