That breaks on embedded newlines.

For a solution that solves that, check out Text::xSV (which I intend to put on CPAN this weekend, should have done it ages ago).