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