use Text::Original; my $sentence = first_sentence($email->body);
Returns the a number of lines after the first non blank, none quoted line of the body of the email.
It will guess at attribution lines and skip them as well.
It will return super cited lines. This is the super-citers' fault, not ours.
It won't catch all types of attribution lines;
It can optionally be passed a number of lines to get.
Packaged by Simon Cozens
Currently maintained by Simon Wistow <email@example.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.