>>408
my @captured = ($1, $2, $3, $4); # まず配列(でもなんでも)に値を移して
foreach (@captured) { # ループにかけ、
  next unless defined; # 未定義ならはじいてしまうか、
  # あるいは、
  $_ |= ''; # 適当に初期化しておいてから、

  # 思う存分本来の処理をやりましょう。

}