Help for this page

Select Code to Download


  1. or download this
    my $s = join('', @_); $s =~ s/^/$prefix/mg; print $s;
  2. or download this
    print map { $prefix . $_ } split /^/m, join('', @_);
  3. or download this
    print apply { s/^/$prefix/mg } join('', @_);
  4. or download this
    print join('', @_) =~ s/^/$prefix/rmg;