なんか、レベルの高い会話の所恐縮なのですが・・・。

$subj="[回覧板 No.123]タイトル"

という文字列から、123だけを抜き取って$countに入れたいんですけどスマートな方法が思い浮かびません。
無茶するなら、

#"[回覧版 "と"No.123…"に分割
@temp=split(/\s/,$subj);

#"No.123…"を"No."と"123]…"に分割
@temp=split(/\./,@temp[1]);

#"123]…"を"123"と"]…"に分割
@temp=split(/\]/,@temp[1]);

#結果の取得
$count=@temp[0];

で出来そうですが、スマートじゃないですよね(;´Д｀)
せっかくperlなんで正規表現使ってドカン！と一発で出来ないでしょうか？