Select Code to Download

my $s = "a,b=c,e=#f";

...

print "$s\n";
print Dumper \%result;

a,b=c,e=#f

...
          'a' => 'fn(a)',
          'b' => 'c'
        };