$string =~ s/two\s*(?!.*two)//