use MIME::QuotedPrint;
use Encode;

$zeile = MIME::QuotedPrint::decode_qp($zeile);
$utf_string = Encode::encode("utf-8", $zeile);