@result=map {
  /=#/? (@l=split(/=#/,$_,2) && ($l[0],fn($l[1])) :
  /=/ ? split(/=/,$_,2) :
  ($_,fn($_)) } split(/,/, $string);