sub replace { s/(o+ )three/$1/g       for @copy=@strings }
sub keep    { s/o+ \Kthree//g         for @copy=@strings }
sub two     { do {s/\Gthree// while /o+ /g} for @copy=@strings }