sub is_valid {
    my $test = shift;
    return $test =~ /^aaa_\w{1,24}(?<!_)_\d{4}$/;
}