#!/usr/bin/perl

use strict;

while(<DATA>){
    s/\%EX\%|\%BC\%|\%EC\%/TOdelete/g;
    print;
}

__DATA__
%BX% HI %EX% %BC% %EC%