It won't handle a multi-line message properly. Note the s///mg there.

-- Randal L. Schwartz, Perl hacker