Select Code to Download

{
    my $re = qr/\\(.)/;
    sub encode ($) {
...
        return $str
    }
}

my @splitted = map { decode $_ } split ',', encode('hel\,lo,world')