while (/pattern/g) {
  my ($x, $y, $z) = ($1, $2, $3);
  # ...
}