$string =~ s/[ATYI]//g;

##</code><code>##

$string =~ s/[\123\124\145]//g;