> cat bod-oh-my.pl
(my $pname,my $sname)=split / +/,$rname,2;

> perl -MO=Deparse bod-oh-my.pl
my($pname, $sname) = split(/ +/, $rname, 2);
bod-oh-my.pl syntax OK