sub two     { /o+ (?=(three))/g and substr($_, $-[1], $+[1]-$-[1], '') for @copy=@strings