my ($x, $y, $z) = ($line =~ /($num) ($num) ($num)\s*$/);