How can I write() into a string?

See perlform/"Accessing Formatting Internals" for an swrite() function.