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