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