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

##</code><code>##

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