if ($name =~ /^[A-Za-z]{3}$/) {
   ...
}