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

print $text;