数値桁数を固定させる正規表現の記載方法について

Question

前提

条件式に正規表現を用いて、値のチェックを行います。
変数にある数値がちょうど４桁だった場合にTrue判定としたいのですが、試してみて上手くいきません。
初歩的なことかと思いますが、教えて頂きたいです。

ソースコード

use strict;

my $test = 12345;

if ($test =~ /[0-9]{4}/) {
    print '$testは4桁の数値です', "\n";
} else {
    print '$testは4桁の数値ではありません', "\n";
}

use strict;

my $test = 12345;

if ($test =~ /\d{4}/) {
    print '$testは4桁の数値です', "\n";
} else {
    print '$testは4桁の数値ではありません', "\n";
}

1;

$test が上記の２つのソースだと５桁なのですが、実際に実行してみると 4桁の数値です と出力されてしまいます。
どのように正規表現を記載すれば、else文に入ることが出来るでしょうか。

Answer 1

正規表現によるマッチングでは、パターンに合致する文字列が「含まれて」いれば成功です。５桁の数字列には４桁の数字列が「含まれている」ので、表記のコードでは必ず成功してしまいます。
完全一致を表現するには文字列の先頭と末尾にマッチするメタ文字を使います。

if ($test =~ /^\d{4}$/) {