#!/usr/bin/perl -w
use strict;
use Chess::PGN::Parse;

my $text = <<'PGN';
[Event "Botvinnik Memorial"]
[Date "2001.12.05"]
[Site "Moscow"]
[Round "4"]
[White "Kasparov, Garry"]
[Black "Kramnik, Vladimir"]
[Result "1/2-1/2"]
[ECO "C80"]
[WhiteElo "2839"]
[BlackElo "2808"]
[PlyCount "37"]
[EventDate "2001.12.01"]

1. e4 e5 2. Nf3 Nc6 3. Bb5 a6 $1 {first comment} 4. Ba4 Nf6 5. O-O 
Nxe4 {second comment} 6. d4 ; comment starting with ";" up to EOL 
b5 7. Bb3 d5 8. dxe5 Be6 9. Be3 {third comment} 9... Bc5 10. Qd3 O-O 
11. Nc3 Nb4 (11... Bxe3 12. Qxe3 Nxc3 13. Qxc3 Qd7 14. Rad1 Nd8 $1 
15. Nd4 c6 $14 (15... Nb7 16. Qc6 $1 $16)) 12. Qe2 Nxc3 13. bxc3 Bxe3 
% escaped line - it will be discarded up to the EOL
14. Qxe3 Nc6 {wrong } comment} 15. a4 Na5 oh? 16. axb5 {yet another 
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
PGN

my $pgn = new Chess::PGN::Parse undef, $text
    || die "can't create new object \n";
$pgn->read_game();

print "unparsed PGN format \n";
print $pgn->standard_PGN();
$pgn->parse_game();

print "\nstandard PGN format\n";

print $pgn->standard_PGN();

print "\ncustomized PGN format\n";

print $pgn->standard_PGN({
    brackets=> "<b>[</b>|<b>]</b>", # HTML format
    quotes => "<I>|</I>", 
    # quotes =>"\0|\0",             # no quotes
    nl =>"<br>\n",
    # all_tags=>1,  # if uncommented, prints all tags
    tags => [qw(White Black Result)], # prints only three tags
});