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