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