regex - Perlの単純な正規表現が頭を悩ませています

Question

印刷時に生成される変数 $message があります。

 Date:   Wed Jun 26 18:15:11

some message test

[tug=123
    [rug testing one]


the boy fell on the rug

#update]

テキストは変更される可能性がありますが、この形式は一定のままです

(random characters)  [tug=(possible number)   
  [(possible text1)] (sometext2) #(possible text3)]

(数字の可能性)、(テキスト 1 の可能性)、(テキスト 2)、(テキスト 3 の可能性) を取得するにはどうすればよいですか?

私は少なくとも何かをつかむために何かを試みましたが、葉巻なしで失敗しました

 if( $message =~ /.*\[tug\s*\[(.*)\]/g){
    my $grab = $1;
  }