print map { "$prefix$_" } split /\n/, join '', @_

##</code><code>##

print map { "$prefix$_" }  join('',@_) =~ m/([^\n]+\n?)/g