Perlの正規表現について

$noには "a12345"　の値が入っています。
この$no から数値だけを取り出して$aaa　にその値を代入したい。

$no =~ /(\d+)/;
$aaa = $1;

これを正規表現を使って1行にするにはどう記述しれば良いでしょうか？
$aaa が　"12345"　になるように。

No.1 ベストアンサー 回答者： Tacosan 回答日時： 2016/11/08 17:45

$no =~ /(\d+)/, $aaa = 1;

なり
($aaa) = $no =~ /(\d+)/;
なり, お好きなほうをどうぞ.