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