Select Code to Download

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

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