Select Code to Download

sub r {my$s;$s.=chop for@_=@_;$s.0?(&r,$s):()}

  sub r {my$s;$s.=chop for@_;$s?(&r,$s):()}

...
  # jeff,john,mary
  # jjm,eoa,fhr,fny