# change it to use binary extraction when MIME::Parse extracts text files from the mail message
    $hold =~ s/text\/plain/application\/x-msexcel/g;