my $good = "abcde";
my $bad = "zyxwv";
my $mixed = "azby";

for ($good, $bad, $mixed) {
    print "$_ contains invalid characters!\n" if tr/a-m//c;
}