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