Select Code to Download

[Event "Botvinnik Memorial"]
[Site "Moscow"]
...
comment} (16. Nd4 {nested comment}) 16... axb5 17. Nd4 (17. Qc5 c6 18.
+ 
Nd4 Ra6 19. f4 g6 20. Ra3 Qd7 21. Rfa1 Rfa8) 17... Qe8 18. f4 c5 19. 
Nxe6 the end 1/2-1/2

$game = 
{ 'Event' => 'Botvinnik Memorial',
...
     '19w' => 'the end'
    }
}

my %switchcolor = ( 'w' => 'b', 'b' => 'w');
my @gamechars = split //, $gametext;
...
# "{" => "}", "(" =>")", "[" => "]"
# in \@array, starting at $pos
}

while (<>) {
    chomp;
...
       m/ \G( [^\w\d]+ )/gcx && do { print "other:  $1\n"; redo; };
    }
}

while (m/$REmove|$REnumber|$REcomment|$REeolcomment/g) {
    print $1;
}

package PGNParser; # temporary name
use FileHandle;
...
        };
    }
}