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