my $n = ($s =~ /(\d+)/)[0] // ''; # >>352氏のアイディアの利用
my $n = ($s =~ /(\d+)/ ? $1 : '');

>>356
m//をスカラコンテキスト縛りで使っていると、
リストコンテキストはピンと来なかったりするんじゃないだろうか。