#!/usr/bin/env tclsh
package require mime

set body ""
set inbody 0

while { [gets stdin line] != -1 } {
    regsub "\(VERSION\|BEGIN\|DCREATED\|X-IRMC-LUID\|END\):.*$" $line "" line
    regsub "BODY;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8:" $line "" line
    if { [string length [string trim $line]] } {
        append body $line\n
    }
}
puts [mime::qp_decode $body]