Help for this page

Select Code to Download

Select or download this

> 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