sub is_valid {
    my $test = shift;
    return $test =~ /\Aaaa_\w{1,24}(?<=\D)\d{4}\z/;
}