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