Select Code to Download

(my $pname,my $sname)=split / +/,$rname,2;

my ($pname, $sname) = split / +/, $rname, 2;