use strict;

my $eindaten = $ARGV[0] or die "Bitte Datei mit Fremddaten 

als Parameter angeben!\n";
my $ausdaten = "Signaturen.txt";
$ausdaten = "D:/TEMP/signaturen.txt"  if -d "D:/TEMP";

open(IN,  "<$eindaten") or die "Konnte $eindaten nicht 

oeffen : $!";
open(OUT, ">$ausdaten") or die "Konnte $ausdaten nicht 

oeffen : $!";

 
 my $zaehler = 0;
	
	while (<IN>)
	 {
	 s/\(/ (;
	 s/\+/ +;
	 my @saetze = ();
 	 next if /^\s*$/;
 	 @saetze = split (/\ /);

 my $zaehler++; 
	 
 	 my $notation = $saetze[0];
 	 my $nummcurr = $saetze[1];
	 my $auflage = $saetze[2];
	 my $rest = $saetze[3];
	 
chomp($notation);
chomp($nummcurr);
chomp($rest);
chomp($auflage);

 print OUT "$notation,$nummcurr,$auflage,$rest\n";

}