print apply { s/^/$prefix/mg } join('', @_);