my $y; ... my ( $x, $y, $z ) = split / +/, $rname;