http://qs321.pair.com?node_id=574321

I, for one, am terribly excited over the upcoming chess match in Kalmykia starting tomorrow. Finally, the chess world gets to reunite under one champion, and, not coincidentally, both competitors are very worthy of the title. It should be a match defining its generation. So I thought I would hail the coming of the new world with this humble knight, who will remind us of where the two competitors left off against each other.
$b[$_]=chr ($_%9?0x2E : 0xA)for 1..72; $d="6r7k15p17p23 n25p32p34b37p39b41 P55P60 Q61P62P65q66 N67R6 9R71K";$d=~ s/\s +//xg;$b[$1 ]=$2while$d=~ /(\d+)(\D)/g; $d="Kramnik";$c ="Topalov";shift @b;unshift @b,' ' .$c,chr 10;push @b,$ d,chr 0xA; $,= chr 0x20; print@b;
Who are you rooting for?

--
brian d foy's embarrassment to Perl, and just a mean person.