s[(%(?:EX|EC|BC)\%)][TOdelete]g, print while <DATA>; ## Adjusted