Help for this page

Select Code to Download


  1. or download this
    @l=<F3>;
my $text = '';
...
}

print $text;
  2. or download this
    @l=<F3>;
my $text = join '', @l;
$text =~ s/\*/ /g;
print $text;
  3. or download this
    @l=<F3>;
print map {s/\*/ /;$_;} @l;