Or (cutting out the middle man... er... variable :)

@Message = @{ $foo->get_body() };
[download]

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me