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

##</code><code>##

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