Substitution don't work with a special inputfile

Select or download this

# Aufruf: perl removeEK1.pl TestEK.txt > Out.txt

...
    $line =~ s/$regex/$subst/gi;
    print $line;
}

Select or download this

[Event "?"]
[Site "?"]
...
BlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBla
BlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBla
BlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaB
+laBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBlaBla

Select or download this

 
.......

...
[Site "?"]

.......

Select Code to Download