#!C:/Perl/bin/perl.exe -w

use MIME::QuotedPrint;

die "Usage make_CSV2.pl Filename\n" if $#ARGV != 0;

my $datafile = $ARGV[0];
my $outfile = "C:/Perl/scripts/ausgabe2.csv";
my $doEncode = 0;

open(OUT, ">>$outfile") || die "Cannnot write file $outfile!\n";
open(DATA, $datafile) || die "Cannot open file!\n";
while (<DATA>)
{
        if ( /^Content-Transfer-Encoding: quoted-printable/ )
        {
                $doEncode = 1;
        }
        if ( $doEncode == 1 )
        {
                print decode_qp($_);
                $zeile = decode_qp($_);
                print OUT $zeile;
        }
}
close (DATA);
close (OUT);