Select Code to Download

my $y;

...

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

my $y;

...

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