$text =~ tr/[|]/{,}/;