Help for this page

Select Code to Download

Select or download this

my %replacement = (
    'b' => 'Black to move',
    'w' => 'White to move',
    );

Select or download this

$s =~ s{
  Event \s+ " \K [?] (?= " .*? FEN [^\n]* \s+ ($string2) \s+ -)
  }
  {$replacement{$1}}xmsg;