#!/usr/bin/perl 
# Remove extra text from a PGN or Text-file.
use strict;
use warnings;
my $regex = '{\[%tqu[^\]]*]}';
my $line = do { local $/;  <>; }; 
$line =~ s/\n/ /g;            
$line =~ s/$regex//gi;
# these statements I have inserted
$line =~ s/\]/\]\n/g; 
$line =~ s/\[E/\n\[E/g; 
#  end
$line =~ s/ (\d+\. )/\n$1/g;
print $line;