next unless ($Var=~/^_[A-Z][A-Z_128]+$/);