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