>>408
>>415
> my @captured = ($1, $2, $3, $4); # まず配列(でもなんでも)に値を移して
試していないけど、この文を実行する時に$2, $3, $4などが無ければ、
また怒られるのでは？
リストコンテキストでは、($1, $2, $3, $4, ....)が返ってくるよ。

my @captured = $test =~ /^([AB])?([AB])?([AB])?$/;