(Perl) Get Contents of a T-Mobile Text Message (as Email)

How to get the contents of an email that originated as a T-Mobile SMS text.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# First, for the purpose of understanding the structure of the MIME,
# let's load the MIME into a Chilkat MIME object and examine the MIME structure.
$mime = chilkat::CkMime->new();

$success = $mime->LoadMimeFile("qa_data/eml/TMobileTextMsg.eml");
# Show the MIME structure in text format (as opposed to XML format).
print $mime->getStructure("text") . "\r\n";

# The MIME structure for our test email looks like this:
# multipart/related
#     text/html
#     text/plain
#     image/gif
#     image/gif
#     image/gif

# The HTML part is not considered a "related item" because the related items
# are defined as being related to the HTML part.  Therefore, we should always
# expect to find a text/html part under a multipart/related.  The HTML parts
# is simply the HTML body, and the other parts are the related items.
# If the text/plain part was to be considered as an alternative body,
# then a properly structured email would include a multipart/alternative structure.

$email = chilkat::CkEmail->new();

$success = $email->LoadEml("qa_data/eml/TMobileTextMsg.eml");

# We should see 4 related items.
print "Num Related Items = " . $email->get_NumRelatedItems() . "\r\n";
# There should be 0 attachments.  
print "Num Attachments = " . $email->get_NumAttachments() . "\r\n";

# Find the indices of the text/plain related part, and the text/html related part
$i = 0;
$numRelatedItems = $email->get_NumRelatedItems();
$sbContentType = chilkat::CkStringBuilder->new();
while ($i < $numRelatedItems) {
    $sbContentType->Append($email->getRelatedContentType($i));
    print $i . ": " . $sbContentType->getAsString() . "\r\n";
    if ($sbContentType->ContentsEqual("text/plain",0)) {
        print "---- text/plain part:" . "\r\n";
        print $email->getRelatedString($i,"utf-8") . "\r\n";
    }

    $sbContentType->Clear();
    $i = $i + 1;
}