#!/usr/bin/perl -w
use MIME::QuotedPrint;
use MIME::Base64;

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

my $datafile = $#ARGV[0];
my $doEncode = 0;

open(DATA, $datafile) || die "Cannot open file!\n";
while (<DATA>)
{
if ( /^Hier beginnt die csv Datei;/ )
{
$doEncode = 1;
}
if ( $doEncode == 1 )
{
if ( $_ =~ /^---/ )
{
next;
}
elsif ( $_ =~ /^\s$/ )
{
next;
}
else
{
$zeile = decode_qp($_);
print $zeile;
}
}
if ( /^Content-Transfer-Encoding: base64/ )
{
$doEncode=2;
}
if ($doEncode==2)
{
$var = decode_base64($_);
if ( $var =~ /Hier beginnt die CSV Datei;/ )
{
print $var;
}
}
}
close (DATA);