But since you aren't using /s, you're going to be doing bad things to strings that have newlines. The other solutions are much better.

-- Randal L. Schwartz, Perl hacker