Help for this page

Select Code to Download

Select or download this

for ($text) {
   s/\[/{/g;
   s/\]/}/g;
   s/\|/,/g;
}

Select or download this
$text =~ tr/[|]/{,}/;