use MIME::QuotedPrint;

##</code><code>##

print tomail "$line\n";

##</code><code>##

$decoded = MIME::QuotedPrint::decode($line);
print tomail "$decoded";