Recherche:

Si tout le contenu du mail y compris les headers sont contenus dans une variable $mail par exemple, il suffit de faire
$mail =~ m/\n\n(.*)/s; et tu récupères le corps du message dans $1.

Eh bien c'est simple :

* m// indique qu'on veut effectuer un match
* le s a la fin indique qu'on veut traiter la variable comme une chaine unique, sans découper au niveau des \n
* \n\n recherche...

m/\n\n(.*)/s
Non ?