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";

}

#!/usr/bin/perl

use strict;
use warnings;

my @cases = (
    '2+(',
    '2(',
    '2+3',
);

for my $case ( @cases ){
    $case =~ s~\+(?!\()~ +~g;
    $case =~ s~(?<!\+)\(~ (~g;
    print $case,"\n";
}