Help for this page
{ my $re = qr/\\(.)/; sub encode ($) { ... return $str } }
my @splitted = map { decode $_ } split ',', encode('hel\,lo,world')