my $s = join('', @_); $s =~ s/^/$prefix/mg; print $s;

##</code><code>##

print map { $prefix . $_ } split /^/m, join('', @_);

##</code><code>##

print apply { s/^/$prefix/mg } join('', @_);

##</code><code>##

print join('', @_) =~ s/^/$prefix/rmg;