#!/usr/bin/perl 
# Remove extra text from a PGN or Text-file.
# Aufruf: perl removeEK4.pl  In.txt  > Out.txt

use strict;
use warnings;
my $regex = '%17\{#MARKERS.*MARKERS#}';
my $line = do { local $/;  <>; }; 
$line =~ s/\n/ /g;
$line =~ s/$regex/ /gi;
$line =~ s/ (\d+\. |\[)/\n$1/g;
print $line;