my @result=map {
  /(\w+)=#(.+)/ ? ($1,fn($2)) :
  /(\w+)=(.+)/  ? ($1, $2) :
                  ($_, fn($_))
  } split(/,/, $str);