#!/usr/bin/perl
while(<DATA>){
s/\%EX\%/TOdelete/;
s/\%BC\%/TOdelete/;
s/\%EC\%/TOdelete/;
print $_;
}

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