Select Code to Download

c:\@Work\Perl\monks\OldChamp>perl -wMstrict -le
"use 5.010;
...
regex: (?msx-i: \b (?: zot | foo | bar) \b )
before: 'Event ? followed by some text and then foo'
after:  'Event Black to move followed by some text and then foo'