my $charclass = "aeginrt";
my $num = 9;
if (/^[$charclass]{$num}$/) {
# rest of code here