if (($name =~ m/[a-zA-z]{3}/) && ($name =~ m/^\_{1,3}/)) {
whatever;
}