print map { "$prefix$_" }  join('',@_) =~ m/([^\n]+\n?)/g