Perl・正規表現が分かりません

質問

Perlでプログラムを書く場合、
ある文字列の文字数が5文字且つ、文字列の先頭に[0-5A]を必ず含み、そして残り4文字にも[0-5A]のみを必ず含む場合、Trueを表示。
それ以外はErrを表示する。
多分、全て、正規表現でできると思うのですが、分かりません。教えていただけないでしょうか？
宜しくお願い致します。

$test = "0AAAA";
if(正規表現){
print "True";
}else{
print "Err";
}

↑結果：True

$test = "aAAAA";の場合、
結果：Err

回答No.1

lx_lucifer_xl · ベストアンサー

$test = "aAAAA";
if($test =~ /^[0-5A]{5}$/){
print "True\n";
}else{
print "Err\n";
}

このような正規表現でいかがでしょうか？

お礼

回答いただきありがとうございます。
とても、助かりました。