perlquestion OldChamp

In a text file there are constant string1, for example Event "?" followed by some text and then a string2, which is spacebspace- or spacewspace-.

I want to replace string1 with Event "Black to move" or Event "White to move" dependant on srting2.

-2