use Regex::PreSuf;
my $re = presuf( qw! %EX% %BC% %EC% ! );
...
s/$re/TOdelete/;
[download]