this would also work

$var = 'bat';
if ($var =~ /^[bat]{3}$/) { print "match"; } else { print "fail"; }
[download]

since you want only those letters to exist, check from beginning to end that word for each letter, the {3} should be the number of letters in that word