my $s = 'ATCGxTGAC';
my $foreign = $s =~ tr/ATCG//c;
print qq{foreign character in '$s'} if $foreign;